report % Female and % Male in “Gender”

var category proportion lb ub
gender Male 0.4938173 0.4582273 0.5294074
gender Female 0.5061827 0.4705926 0.5417727

report % Democrat, % Republican, % Independent in “Political Affiliation”

var category proportion lb ub
party Democrat 0.2659390 0.2387846 0.2930935
party Republican 0.2705728 0.2371802 0.3039653
party Independent 0.4634882 0.4277816 0.4991948

report % $100,000-$149,999 or $150,000 or more in “Income”

var mean lb ub
high_income 0.5 0.4644766 0.5355234
var category proportion lb ub
Income $100,000-$149,999 0.1775759 0.1541907 0.2009611
Income $150,000 or more 0.1117020 0.0934008 0.1300032
Income $25,000-$49,999 0.2016392 0.1742145 0.2290639
Income $50,000-$74,999 0.1255454 0.1070210 0.1440698
Income $75,000-$99,999 0.2218878 0.1869211 0.2568545
Income Less than $25,000 0.1478374 0.1157287 0.1799462
Income Prefer not to say 0.0138122 0.0088426 0.0187818

report % 18-24 years old, % 25-34 years old, and %65+ years old in “Age”

var category proportion lb ub
age_group 18-24 0.1295608 0.1044256 0.1546960
age_group 25-34 0.1813423 0.1508773 0.2118073
age_group 35-44 0.1709662 0.1428688 0.1990637
age_group 45-54 0.1562543 0.1343702 0.1781383
age_group 55-64 0.1606671 0.1398807 0.1814536
age_group 65+ 0.2012093 0.1710913 0.2313272

report % Bachelors degree or Graduate or professional degree (MA, MS, MBA, PhD, JD, MD, DDS etc.) in “education”

var category proportion lb ub
education Less than high school diploma 0.1014643 0.0570620 0.1458667
education High school graduate or equivalent 0.2549111 0.2243042 0.2855181
education Some college or associate’s degree 0.2769783 0.2516108 0.3023459
education Bachelor’s degree 0.2215603 0.1995167 0.2436039
education Graduate or Professional degree 0.1450859 0.1254194 0.1647524

Race

var category proportion lb ub
Race American Indian/Native American or Alaska Native 0.0102220 0.0049297 0.0155143
Race Mixed race 0.0770456 0.0601501 0.0939410
Race Asian 0.0598842 0.0461540 0.0736143
Race Black or African American 0.1208072 0.0996937 0.1419207
Race Native Hawaiian or Other Pacific Islander 0.0018639 -0.0017858 0.0055136
Race Other 0.0703336 0.0467312 0.0939360
Race Prefer not to say 0.0465154 0.0261974 0.0668335
Race White or Caucasian 0.6133281 0.5782793 0.6483770

-Bar figure with % very or extremely concerned for all the “Concern about….” questions together, preferably with the label just the type of animal

## [1] "Concern about pets"               "Concern about native wildlife"   
## [3] "Concern about invasive wildlife"  "Concern about farmed animals"    
## [5] "Concern about research animals"   "Concern about zoo animals"       
## [7] "Concern about show/rodeo animals"
## Loading required package: viridisLite

mean concern for each of the “Concern about…” questions

var Response proportion lb ub Question
Concern about pets Extremely concerned 0.3068678 0.2735993 0.3401363 Pets
Concern about pets Moderately concerned 0.1720891 0.1491967 0.1949814 Pets
Concern about pets Not at all concerned 0.1221691 0.0944421 0.1498962 Pets
Concern about pets Somewhat concerned 0.1522316 0.1307789 0.1736843 Pets
Concern about pets Very concerned 0.2466424 0.2145186 0.2787661 Pets
Concern about native wildlife Extremely concerned 0.2312389 0.2019342 0.2605436 Native Wildlife
Concern about native wildlife Moderately concerned 0.2538582 0.2218292 0.2858871 Native Wildlife
Concern about native wildlife Not at all concerned 0.0773685 0.0501464 0.1045907 Native Wildlife
Concern about native wildlife Somewhat concerned 0.1514585 0.1294387 0.1734783 Native Wildlife
Concern about native wildlife Very concerned 0.2860759 0.2559293 0.3162226 Native Wildlife
Concern about invasive wildlife Extremely concerned 0.1177733 0.0950032 0.1405434 Invasive Wildlife
Concern about invasive wildlife Moderately concerned 0.2155724 0.1899317 0.2412132 Invasive Wildlife
Concern about invasive wildlife Not at all concerned 0.2224045 0.1909978 0.2538112 Invasive Wildlife
Concern about invasive wildlife Somewhat concerned 0.2578707 0.2251850 0.2905564 Invasive Wildlife
Concern about invasive wildlife Very concerned 0.1863791 0.1594375 0.2133207 Invasive Wildlife
Concern about farmed animals Extremely concerned 0.2206027 0.1935851 0.2476203 Farmed Animals
Concern about farmed animals Moderately concerned 0.2426442 0.2149980 0.2702904 Farmed Animals
Concern about farmed animals Not at all concerned 0.1072660 0.0753684 0.1391636 Farmed Animals
Concern about farmed animals Somewhat concerned 0.1571644 0.1312047 0.1831240 Farmed Animals
Concern about farmed animals Very concerned 0.2723227 0.2415983 0.3030470 Farmed Animals
Concern about research animals Extremely concerned 0.3299055 0.2973547 0.3624563 Research Animals
Concern about research animals Moderately concerned 0.1936076 0.1650981 0.2221170 Research Animals
Concern about research animals Not at all concerned 0.0697762 0.0423619 0.0971904 Research Animals
Concern about research animals Somewhat concerned 0.1265172 0.1054883 0.1475461 Research Animals
Concern about research animals Very concerned 0.2801936 0.2497875 0.3105997 Research Animals
Concern about zoo animals Extremely concerned 0.2832034 0.2507624 0.3156443 Zoo Animals
Concern about zoo animals Moderately concerned 0.2395475 0.2108561 0.2682389 Zoo Animals
Concern about zoo animals Not at all concerned 0.0747614 0.0495294 0.0999935 Zoo Animals
Concern about zoo animals Somewhat concerned 0.1172228 0.0982396 0.1362061 Zoo Animals
Concern about zoo animals Very concerned 0.2852649 0.2532216 0.3173082 Zoo Animals
Concern about show/rodeo animals Extremely concerned 0.3089480 0.2788445 0.3390515 Show/Rodeo Animals
Concern about show/rodeo animals Moderately concerned 0.2223614 0.1909892 0.2537337 Show/Rodeo Animals
Concern about show/rodeo animals Not at all concerned 0.0714606 0.0459875 0.0969337 Show/Rodeo Animals
Concern about show/rodeo animals Somewhat concerned 0.1100560 0.0917200 0.1283919 Show/Rodeo Animals
Concern about show/rodeo animals Very concerned 0.2871740 0.2544739 0.3198741 Show/Rodeo Animals

-Bar figure with % very or extremely important for all the “Importance of” questions together, preferably with the label just the type of animal

## [1] "Importance of programs for pets"              
## [2] "Importance of programs for native wildlife"   
## [3] "Importance of programs for invasive wildlife" 
## [4] "Importance of programs for farmed animals"    
## [5] "Importance of programs for research animals"  
## [6] "Importance of programs for zoo animals"       
## [7] "Importance of programs for show/rodeo animals"

mean importance for each of the “Importance of” questions

var Response proportion lb ub
Importance of programs for pets Extremely important 0.4108047 0.3742322 0.4473772
Importance of programs for pets Moderately important 0.1477365 0.1273025 0.1681706
Importance of programs for pets Not at all important 0.0561642 0.0423517 0.0699766
Importance of programs for pets Slightly important 0.1060763 0.0836072 0.1285455
Importance of programs for pets Very important 0.2792182 0.2494611 0.3089754
Importance of programs for native wildlife Extremely important 0.3610191 0.3273606 0.3946776
Importance of programs for native wildlife Moderately important 0.1896940 0.1587337 0.2206543
Importance of programs for native wildlife Not at all important 0.0493253 0.0281029 0.0705477
Importance of programs for native wildlife Slightly important 0.0833853 0.0684822 0.0982883
Importance of programs for native wildlife Very important 0.3165763 0.2848255 0.3483271
Importance of programs for invasive wildlife Extremely important 0.2135435 0.1834436 0.2436434
Importance of programs for invasive wildlife Moderately important 0.1790861 0.1555523 0.2026198
Importance of programs for invasive wildlife Not at all important 0.1910119 0.1634567 0.2185672
Importance of programs for invasive wildlife Slightly important 0.2074014 0.1756505 0.2391523
Importance of programs for invasive wildlife Very important 0.2089571 0.1809434 0.2369709
Importance of programs for farmed animals Extremely important 0.3568370 0.3236884 0.3899855
Importance of programs for farmed animals Moderately important 0.2017336 0.1698154 0.2336517
Importance of programs for farmed animals Not at all important 0.0517321 0.0305626 0.0729017
Importance of programs for farmed animals Slightly important 0.0939250 0.0764301 0.1114198
Importance of programs for farmed animals Very important 0.2957723 0.2647350 0.3268097
Importance of programs for research animals Extremely important 0.4385663 0.4033815 0.4737511
Importance of programs for research animals Moderately important 0.1662848 0.1362525 0.1963170
Importance of programs for research animals Not at all important 0.0437722 0.0233673 0.0641771
Importance of programs for research animals Slightly important 0.0827390 0.0662116 0.0992663
Importance of programs for research animals Very important 0.2686377 0.2399722 0.2973033
Importance of programs for zoo animals Extremely important 0.4153950 0.3807163 0.4500737
Importance of programs for zoo animals Moderately important 0.1722164 0.1427450 0.2016877
Importance of programs for zoo animals Not at all important 0.0311792 0.0216650 0.0406934
Importance of programs for zoo animals Slightly important 0.0723553 0.0574134 0.0872972
Importance of programs for zoo animals Very important 0.3088542 0.2754439 0.3422646
Importance of programs for show/rodeo animals Extremely important 0.3838304 0.3508389 0.4168220
Importance of programs for show/rodeo animals Moderately important 0.1806804 0.1489642 0.2123966
Importance of programs for show/rodeo animals Not at all important 0.0479122 0.0278722 0.0679522
Importance of programs for show/rodeo animals Slightly important 0.0834866 0.0676643 0.0993088
Importance of programs for show/rodeo animals Very important 0.3040904 0.2713228 0.3368581

-Histogram of % selected each number for “Rank of animal welfare personal”, with 0/1 being labeled as “least important” and 10 being labeled as “most important”

NOTE! The plot is still the unweighted frequencies, but I report the unweighted and weighted means below

## Warning: Removed 1 row containing non-finite outside the scale range
## (`stat_bin()`).
var mean lb ub Demographic Level
Rank of animal welfare personal 5.45 5.22 5.67 Overall
Rank of animal welfare personal 4.96 4.64 5.28 Gender Male
Rank of animal welfare personal 5.93 5.65 6.20 Gender Female
Rank of animal welfare personal 5.66 5.33 5.99 Political affiliation Democrat
Rank of animal welfare personal 4.95 4.40 5.50 Political affiliation Republican
Rank of animal welfare personal 5.62 5.34 5.89 Political affiliation Independent
Rank of animal welfare personal 5.79 4.86 6.71 Race American Indian/Native American or Alaska Native
Rank of animal welfare personal 5.20 4.60 5.80 Race Mixed race
Rank of animal welfare personal 4.76 4.04 5.47 Race Asian
Rank of animal welfare personal 5.82 5.40 6.24 Race Black or African American
Rank of animal welfare personal 5.12 3.92 6.31 Race Other
Rank of animal welfare personal 6.86 5.43 8.29 Race Prefer not to say
Rank of animal welfare personal 5.39 5.13 5.65 Race White or Caucasian
Rank of animal welfare personal 7.00 NA NA Race Native Hawaiian or Other Pacific Islander
Rank of animal welfare personal 5.21 4.85 5.58 Income $100,000-$149,999
Rank of animal welfare personal 4.97 4.54 5.39 Income $150,000 or more
Rank of animal welfare personal 6.05 5.63 6.48 Income $25,000-$49,999
Rank of animal welfare personal 5.31 4.98 5.64 Income $50,000-$74,999
Rank of animal welfare personal 5.60 5.10 6.10 Income $75,000-$99,999
Rank of animal welfare personal 5.09 4.15 6.03 Income Less than $25,000
Rank of animal welfare personal 5.54 4.67 6.41 Income Prefer not to say
Rank of animal welfare personal 5.58 4.97 6.19 Income NA 
## [1] 5.480463
var mean lb ub
Rank of animal welfare personal 5.446757 5.224948 5.668566
var category proportion lb ub
Rank of animal welfare personal 0 0.0288924 0.0093119 0.0484729
Rank of animal welfare personal 1 0.0673013 0.0450367 0.0895659
Rank of animal welfare personal 2 0.0718258 0.0581283 0.0855232
Rank of animal welfare personal 3 0.1074036 0.0835453 0.1312619
Rank of animal welfare personal 4 0.0828542 0.0677695 0.0979389
Rank of animal welfare personal 5 0.1282889 0.1085457 0.1480321
Rank of animal welfare personal 6 0.1211765 0.0956326 0.1467204
Rank of animal welfare personal 7 0.1305786 0.1091237 0.1520334
Rank of animal welfare personal 8 0.1292109 0.1066419 0.1517798
Rank of animal welfare personal 9 0.0587428 0.0458704 0.0716153
Rank of animal welfare personal 10 0.0737251 0.0505130 0.0969371
0 1 2 3 4 5 6 7 8 9 10
Democrat 0.0025326 0.0134581 0.0231593 0.0256317 0.0245924 0.0343064 0.0323684 0.0356715 0.0335889 0.0202643 0.0203653
Republican 0.0176409 0.0294146 0.0185344 0.0263518 0.0259353 0.0316524 0.0294929 0.0288303 0.0291389 0.0157290 0.0178522
Independent 0.0086329 0.0242283 0.0299182 0.0551004 0.0320798 0.0619482 0.0589545 0.0656881 0.0660984 0.0225746 0.0352881
0 1 2 3 4 5 6 7 8 9 10
American Indian/Native American or Alaska Native 0.0001701 0.0006898 0.0005589 0.0000000 0.0003450 0.0007928 0.0028485 0.0042017 0.0002769 0.0000985 0.0002398
Mixed race 0.0009153 0.0066449 0.0057506 0.0101390 0.0096808 0.0071375 0.0045984 0.0112223 0.0101457 0.0036377 0.0041966
Asian 0.0018099 0.0083256 0.0044646 0.0070814 0.0032709 0.0084937 0.0092981 0.0089751 0.0034953 0.0024252 0.0022443
Black or African American 0.0010871 0.0071252 0.0068261 0.0071463 0.0108100 0.0155304 0.0230016 0.0165156 0.0175949 0.0062059 0.0089641
Native Hawaiian or Other Pacific Islander 0.0000000 0.0000000 0.0000000 0.0000000 0.0000000 0.0000000 0.0000000 0.0018639 0.0000000 0.0000000 0.0000000
Other 0.0005374 0.0100948 0.0020707 0.0077285 0.0062257 0.0102419 0.0117683 0.0047194 0.0116134 0.0035767 0.0017568
Prefer not to say 0.0006332 0.0014984 0.0034039 0.0030878 0.0033376 0.0046338 0.0028492 0.0033583 0.0046685 0.0032821 0.0157626
White or Caucasian 0.0236534 0.0327224 0.0485371 0.0719008 0.0489376 0.0810768 0.0664517 0.0793335 0.0810316 0.0393419 0.0403413

-Histogram of % selected each number for “Rank of animal welfare among Americans”, with 0/1 being labeled as “least important” and 10 being labeled as “most important”

NOTE! The plot is still the unweighted frequencies, but I report the unweighted and weighted means below

## Warning: Removed 1 row containing non-finite outside the scale range
## (`stat_bin()`).

## [1] 4.295224
var category proportion lb ub
Rank of animal welfare personal 0 0.0288924 0.0093119 0.0484729
Rank of animal welfare personal 1 0.0673013 0.0450367 0.0895659
Rank of animal welfare personal 2 0.0718258 0.0581283 0.0855232
Rank of animal welfare personal 3 0.1074036 0.0835453 0.1312619
Rank of animal welfare personal 4 0.0828542 0.0677695 0.0979389
Rank of animal welfare personal 5 0.1282889 0.1085457 0.1480321
Rank of animal welfare personal 6 0.1211765 0.0956326 0.1467204
Rank of animal welfare personal 7 0.1305786 0.1091237 0.1520334
Rank of animal welfare personal 8 0.1292109 0.1066419 0.1517798
Rank of animal welfare personal 9 0.0587428 0.0458704 0.0716153
Rank of animal welfare personal 10 0.0737251 0.0505130 0.0969371
var category proportion lb ub
Rank of animal welfare personal 0 0.0288924 0.0093119 0.0484729
Rank of animal welfare personal 1 0.0673013 0.0450367 0.0895659
Rank of animal welfare personal 2 0.0718258 0.0581283 0.0855232
Rank of animal welfare personal 3 0.1074036 0.0835453 0.1312619
Rank of animal welfare personal 4 0.0828542 0.0677695 0.0979389
Rank of animal welfare personal 5 0.1282889 0.1085457 0.1480321
Rank of animal welfare personal 6 0.1211765 0.0956326 0.1467204
Rank of animal welfare personal 7 0.1305786 0.1091237 0.1520334
Rank of animal welfare personal 8 0.1292109 0.1066419 0.1517798
Rank of animal welfare personal 9 0.0587428 0.0458704 0.0716153
Rank of animal welfare personal 10 0.0737251 0.0505130 0.0969371
0 1 2 3 4 5 6 7 8 9 10
Democrat 0.0031339 0.0253401 0.0402779 0.0377114 0.0452072 0.0418917 0.0340932 0.0175322 0.0117804 0.0064192 0.0025519
Republican 0.0142854 0.0142868 0.0320262 0.0417627 0.0303339 0.0420619 0.0263051 0.0222763 0.0250660 0.0110160 0.0111525
Independent 0.0099354 0.0383052 0.0636135 0.0789053 0.0707031 0.0718483 0.0440211 0.0401654 0.0197143 0.0083526 0.0149473

Also t-tests comparing the last two above (rank of animal welfare personal vs rank of animal welfare among americans)

weighted ttest:

## 
##  Design-based t-test
## 
## data:  response ~ question
## t = 7.2649, df = 4144, p-value = 4.438e-13
## alternative hypothesis: true difference in mean is not equal to 0
## 95 percent confidence interval:
##  0.7939943 1.3809285
## sample estimates:
## difference in mean 
##           1.087461

-Table with % not at all knowledgeable, % very or extremely knowledgeable for all three “knowledge…” questions

Unweighted:
Question Very.or.extremely.knowledgeable
Knowledge which animals are suffering 12.150434
Knowledge federal laws 8.678881
Knowledge state laws 9.787850
Weighted:
var proportion
Knowledge federal laws 9.787531
Knowledge state laws 11.208877
Knowledge which animals are suffering 14.525317

-Table with % somewhat or strongly agree, % somewhat or strongly disagree for all “Belief-” questions

var proportion response
Belief- farmed animals strong laws 27.48123 Somewhat or strongly agree
Belief- killing wildlife humane 41.28164 Somewhat or strongly agree
Belief- legal system should give animals rights 66.65565 Somewhat or strongly agree
Belief- research animals good life 10.04421 Somewhat or strongly agree
Belief- research animals strong laws 22.50856 Somewhat or strongly agree
Belief- strong laws preventing inhumane hunting 50.39407 Somewhat or strongly agree
Belief- wild animals good life 44.12178 Somewhat or strongly agree
Belief-farmed animals good life 19.49719 Somewhat or strongly agree
var proportion response
Belief- farmed animals strong laws 39.73604 Somewhat or strongly disagree
Belief- killing wildlife humane 25.99007 Somewhat or strongly disagree
Belief- legal system should give animals rights 19.52341 Somewhat or strongly disagree
Belief- research animals good life 68.86667 Somewhat or strongly disagree
Belief- research animals strong laws 37.82618 Somewhat or strongly disagree
Belief- strong laws preventing inhumane hunting 26.17269 Somewhat or strongly disagree
Belief- wild animals good life 24.83360 Somewhat or strongly disagree
Belief-farmed animals good life 61.45081 Somewhat or strongly disagree

-Table with % True for all “T/F-” questions

var category proportion lb ub
T/F laws in my state addressing cruelty towards wildlife TRUE 0.8613232 0.8370227 0.8856238
T/F limits on the number of carnivores that can be killed TRUE 0.7410141 0.7082814 0.7737468
T/F carnivores can be killed in any way TRUE 0.3210399 0.2884572 0.3536226
T/F commercial farming of octopus allowed TRUE 0.2224332 0.1977788 0.2470876
T/F pigs have room TRUE 0.3305151 0.2976034 0.3634268

NOTE!

For all the following bar charts, the x axis is the raw number of responses, with the printed percentage the weighted proportions

-Histogram with the % and # selecting all responses for “Belief- legal system should give animals rights”

## [1] "Neither agree nor disagree" "Somewhat agree"            
## [3] "Strongly agree"             "Strongly disagree"         
## [5] "Somewhat disagree"          NA

Histograms with % and # selecting all responses for: Support for state law specifying wildlife cruelty is criminal

## [1] "Very supportive"                     "Somewhat supportive"                
## [3] "Neither supportive nor unsupportive" "Very unsupportive"                  
## [5] "Somewhat unsupportive"               NA
## 
## Neither supportive nor unsupportive                 Somewhat supportive 
##                                 108                                 411 
##               Somewhat unsupportive                     Very supportive 
##                                  53                                1414 
##                   Very unsupportive 
##                                  44

Histograms with % and # selecting all responses for: Support for federal law specifying wildlife cruelty is criminal

Histograms with % and # selecting all responses for: US public support for federal law specifying wildlife cruelty is criminal

Also means for each of the above and t-tests comparing the last two above (support for federal law and US public support for federal law)

## 
##  Design-based t-test
## 
## data:  response ~ question
## t = -11.844, df = 4056, p-value < 2.2e-16
## alternative hypothesis: true difference in mean is not equal to 0
## 95 percent confidence interval:
##  -0.9043870 -0.6475051
## sample estimates:
## difference in mean 
##          -0.775946

One bar graph figure with % Strongly agree for each of the “Cruelty Def-” Items together

## [1] "Cruelty Def- Torturing or needlessly mutilating a wild animal"                    
## [2] "Cruelty Def- Capturing a wild animal and depriving it of necessary food and water"
## [3] "Cruelty Def- beating, shocking, or inflicting repeated pain"                      
## [4] "Cruelty Def- Leaving an animal in a trap for more than one day"                   
## [5] "Cruelty Def- Using a motorized vehicle to kill a wild animal"

-Histograms with % and # selecting all responses for:

-Support for state law limiting the numbers of carnivores that can be killed by a hunter in a year -Support for state law restricting hunting season length for carnivores -Support for a federal law requiring limit to carnivores killed -United States public support of federal law requiring limit to numbers of carnivores killed Support for a state law banning wildlife killing contests -Support for a federal law banning wildlife killing contests

# -Histograms with % and # selecting all responses for:
# -Support for state law limiting the numbers of carnivores that can be killed by a hunter in a year
d$support_for_state_law_limiting_the_numbers_of_carnivores = factor(d$`Support for state law limiting the numbers of carnivores that can be killed by a hunter in a year`, levels = support_levels)
pcarn1 <- make_bar_chart(d, var="support_for_state_law_limiting_the_numbers_of_carnivores",
               title="Support for state law limiting the numbers of carnivores\nthat can be killed by a hunter in a year")

# -Support for state law restricting hunting season length for carnivores
d$support_for_state_law_restricting_hunting_season_length_for_carnivores = factor(d$`Support for state law restricting hunting season length for carnivores`, levels = support_levels)
pcarn2 <-make_bar_chart(d, var="support_for_state_law_restricting_hunting_season_length_for_carnivores",
               title="Support for state law restricting\nhunting season length for carnivores")


# -Support for a federal law requiring limit to carnivores killed
d$support_for_a_federal_law_requiring_limit_to_carnivores_killed = factor(d$`Support for a federal law requiring limit to carnivores killed`, levels = support_levels)
pcarn3 <-make_bar_chart(d, var="support_for_a_federal_law_requiring_limit_to_carnivores_killed",
               title="Support for a federal law\nrequiring limit to carnivores killed")


# -United States public support of federal law requiring limit to numbers of carnivores killed
d$US_support_for_a_federal_law_requiring_limit_to_carnivores_killed = factor(d$`United States public support of federal law requiring limit to numbers of carnivores killed`, levels = support_levels)
make_bar_chart(d, var="US_support_for_a_federal_law_requiring_limit_to_carnivores_killed",
               title="United States public support of federal law requiring limit to numbers of carnivores killed")

#Support for a state law banning wildlife killing contests
d$support_for_state_ban_wildlife_killing_contests = factor(d$`Support for a state law banning wildlife killing contests`, levels = support_levels)
pcarn4 <-make_bar_chart(d, var="support_for_state_ban_wildlife_killing_contests",
               title="Support for a state law banning wildlife killing contests")

# -Support for a federal law banning wildlife killing contests
d$support_for_a_federal_law_banning_wildlife_killing_contests = factor(d$`Support for  a federal law banning wildlife killing contests`, levels = support_levels)
pcarn5 <-make_bar_chart(d, var="support_for_a_federal_law_banning_wildlife_killing_contests",
               title="Support for a federal law banning wildlife killing contests")

Also means for each of the above and t-tests comparing -Support for a federal law requiring limit to carnivores killed and United States public support of federal law requiring limit to numbers of carnivores killed

#weighted means
weighted_mean(d, "support_for_state_law_limiting_the_numbers_of_carnivores")
var category proportion lb ub
support_for_state_law_limiting_the_numbers_of_carnivores Very unsupportive 0.0430059 0.0224546 0.0635572
support_for_state_law_limiting_the_numbers_of_carnivores Somewhat unsupportive 0.0475265 0.0355057 0.0595472
support_for_state_law_limiting_the_numbers_of_carnivores Neither supportive nor unsupportive 0.0921912 0.0722139 0.1121684
support_for_state_law_limiting_the_numbers_of_carnivores Somewhat supportive 0.2807542 0.2460920 0.3154163
support_for_state_law_limiting_the_numbers_of_carnivores Very supportive 0.5365223 0.5002697 0.5727750 
weighted_mean(d, "support_for_state_law_restricting_hunting_season_length_for_carnivores")
var category proportion lb ub
support_for_state_law_restricting_hunting_season_length_for_carnivores Very unsupportive 0.0367932 0.0167474 0.0568390
support_for_state_law_restricting_hunting_season_length_for_carnivores Somewhat unsupportive 0.0536837 0.0378997 0.0694677
support_for_state_law_restricting_hunting_season_length_for_carnivores Neither supportive nor unsupportive 0.0928797 0.0681527 0.1176066
support_for_state_law_restricting_hunting_season_length_for_carnivores Somewhat supportive 0.2281335 0.1996690 0.2565980
support_for_state_law_restricting_hunting_season_length_for_carnivores Very supportive 0.5885099 0.5525486 0.6244713 
weighted_mean(d, "support_for_a_federal_law_requiring_limit_to_carnivores_killed")
var category proportion lb ub
support_for_a_federal_law_requiring_limit_to_carnivores_killed Very unsupportive 0.0554513 0.0430979 0.0678047
support_for_a_federal_law_requiring_limit_to_carnivores_killed Somewhat unsupportive 0.0522900 0.0369628 0.0676173
support_for_a_federal_law_requiring_limit_to_carnivores_killed Neither supportive nor unsupportive 0.1175316 0.0874826 0.1475806
support_for_a_federal_law_requiring_limit_to_carnivores_killed Somewhat supportive 0.2770574 0.2436714 0.3104434
support_for_a_federal_law_requiring_limit_to_carnivores_killed Very supportive 0.4976697 0.4618095 0.5335299 
weighted_mean(d, "US_support_for_a_federal_law_requiring_limit_to_carnivores_killed")
var category proportion lb ub
US_support_for_a_federal_law_requiring_limit_to_carnivores_killed Very unsupportive 0.0494004 0.0379805 0.0608203
US_support_for_a_federal_law_requiring_limit_to_carnivores_killed Somewhat unsupportive 0.2371315 0.2078985 0.2663645
US_support_for_a_federal_law_requiring_limit_to_carnivores_killed Neither supportive nor unsupportive 0.2515128 0.2169677 0.2860579
US_support_for_a_federal_law_requiring_limit_to_carnivores_killed Somewhat supportive 0.3073981 0.2752167 0.3395795
US_support_for_a_federal_law_requiring_limit_to_carnivores_killed Very supportive 0.1545573 0.1289832 0.1801314 
weighted_mean(d, "support_for_state_ban_wildlife_killing_contests")
var category proportion lb ub
support_for_state_ban_wildlife_killing_contests Very unsupportive 0.0381522 0.0274746 0.0488298
support_for_state_ban_wildlife_killing_contests Somewhat unsupportive 0.0581967 0.0382319 0.0781614
support_for_state_ban_wildlife_killing_contests Neither supportive nor unsupportive 0.0861010 0.0688755 0.1033264
support_for_state_ban_wildlife_killing_contests Somewhat supportive 0.2371845 0.2039437 0.2704254
support_for_state_ban_wildlife_killing_contests Very supportive 0.5803656 0.5443974 0.6163338 
weighted_mean(d, "support_for_a_federal_law_banning_wildlife_killing_contests")
var category proportion lb ub
support_for_a_federal_law_banning_wildlife_killing_contests Very unsupportive 0.0550648 0.0349580 0.0751716
support_for_a_federal_law_banning_wildlife_killing_contests Somewhat unsupportive 0.0660067 0.0450847 0.0869288
support_for_a_federal_law_banning_wildlife_killing_contests Neither supportive nor unsupportive 0.0969685 0.0775544 0.1163826
support_for_a_federal_law_banning_wildlife_killing_contests Somewhat supportive 0.2075722 0.1780115 0.2371328
support_for_a_federal_law_banning_wildlife_killing_contests Very supportive 0.5743878 0.5384020 0.6103735 
#weighted ttest
ttest_d <- bind_rows(data.frame(response=d$`Support for a federal law requiring limit to carnivores killed`, question="Support for a federal law requiring limit to carnivores killed", weights=d$survey_weight),
                     data.frame(response=d$`United States public support of federal law requiring limit to numbers of carnivores killed`, question="United States public support of federal law requiring limit to numbers of carnivores killed", weights=d$survey_weight))
ttest_d$response = as.numeric(factor(ttest_d$response, levels=support_levels))
svy_design_ttest <- svydesign(ids = ~1, data = ttest_d, weights = ~weights)
                
ttest_result <- svyttest(response ~ question, design = svy_design_ttest)
ttest_result
## 
##  Design-based t-test
## 
## data:  response ~ question
## t = -15.375, df = 4071, p-value < 2.2e-16
## alternative hypothesis: true difference in mean is not equal to 0
## 95 percent confidence interval:
##  -0.9342882 -0.7229594
## sample estimates:
## difference in mean 
##         -0.8286238

-Histograms with % and # selecting all responses for:

-Support for state law requiring pig space -Support for federal law requiring pig space -United States general public Support for federal law requiring pig space -Support for state law banning the sale of pork coming from confinement -Support for state law requiring labeling of pork coming from confinement

Also means for each of the above and t-tests comparing –Support for federal law requiring pig space -United States general public Support for federal law requiring pig space

mean(as.numeric(d$support_for_state_law_requiring_pig_space, na.rm=T))
## [1] NA
mean(as.numeric(d$support_for_federal_law_requiring_pig_space, na.rm=T))
## [1] NA
mean(as.numeric(d$US_public_support_for_federal_law_requiring_pig_space, na.rm=T))
## [1] NA
mean(as.numeric(d$support_for_state_law_banning_pork_from_confinement, na.rm=T))
## [1] NA
mean(as.numeric(d$support_for_state_law_requiring_labeling_pork_from_confinement, na.rm=T))
## [1] NA
weighted_mean(d, "support_for_state_law_requiring_pig_space")
var category proportion lb ub
support_for_state_law_requiring_pig_space Very unsupportive 0.0327985 0.0100082 0.0555887
support_for_state_law_requiring_pig_space Somewhat unsupportive 0.0232271 0.0139646 0.0324895
support_for_state_law_requiring_pig_space Neither supportive nor unsupportive 0.0408213 0.0308727 0.0507700
support_for_state_law_requiring_pig_space Somewhat supportive 0.1886400 0.1588335 0.2184465
support_for_state_law_requiring_pig_space Very supportive 0.7145131 0.6795649 0.7494614 
weighted_mean(d, "support_for_federal_law_requiring_pig_space")
var category proportion lb ub
support_for_federal_law_requiring_pig_space Very unsupportive 0.0454160 0.0221471 0.0686849
support_for_federal_law_requiring_pig_space Somewhat unsupportive 0.0248676 0.0157813 0.0339540
support_for_federal_law_requiring_pig_space Neither supportive nor unsupportive 0.0484440 0.0370419 0.0598461
support_for_federal_law_requiring_pig_space Somewhat supportive 0.1810332 0.1517415 0.2103249
support_for_federal_law_requiring_pig_space Very supportive 0.7002392 0.6653771 0.7351013 
weighted_mean(d, "US_public_support_for_federal_law_requiring_pig_space")
var category proportion lb ub
US_public_support_for_federal_law_requiring_pig_space Very unsupportive 0.0361910 0.0161339 0.0562480
US_public_support_for_federal_law_requiring_pig_space Somewhat unsupportive 0.1170702 0.0919428 0.1421976
US_public_support_for_federal_law_requiring_pig_space Neither supportive nor unsupportive 0.1992612 0.1748816 0.2236408
US_public_support_for_federal_law_requiring_pig_space Somewhat supportive 0.3541972 0.3221818 0.3862126
US_public_support_for_federal_law_requiring_pig_space Very supportive 0.2932804 0.2573386 0.3292223 
weighted_mean(d, "support_for_state_law_banning_pork_from_confinement")
var category proportion lb ub
support_for_state_law_banning_pork_from_confinement Very unsupportive 0.0543354 0.0305504 0.0781203
support_for_state_law_banning_pork_from_confinement Somewhat unsupportive 0.0498932 0.0360809 0.0637055
support_for_state_law_banning_pork_from_confinement Neither supportive nor unsupportive 0.0934371 0.0762758 0.1105984
support_for_state_law_banning_pork_from_confinement Somewhat supportive 0.2196732 0.1889427 0.2504036
support_for_state_law_banning_pork_from_confinement Very supportive 0.5826612 0.5467648 0.6185575 
weighted_mean(d, "support_for_state_law_requiring_labeling_pork_from_confinement")
var category proportion lb ub
support_for_state_law_requiring_labeling_pork_from_confinement Very unsupportive 0.0517492 0.0261749 0.0773236
support_for_state_law_requiring_labeling_pork_from_confinement Somewhat unsupportive 0.0375310 0.0265453 0.0485167
support_for_state_law_requiring_labeling_pork_from_confinement Neither supportive nor unsupportive 0.1013170 0.0766843 0.1259497
support_for_state_law_requiring_labeling_pork_from_confinement Somewhat supportive 0.1723970 0.1505151 0.1942790
support_for_state_law_requiring_labeling_pork_from_confinement Very supportive 0.6370057 0.6018620 0.6721495 
t.test(x=as.numeric(d$support_for_federal_law_requiring_pig_space),
       y=as.numeric(d$US_public_support_for_federal_law_requiring_pig_space))
## 
##  Welch Two Sample t-test
## 
## data:  as.numeric(d$support_for_federal_law_requiring_pig_space) and as.numeric(d$US_public_support_for_federal_law_requiring_pig_space)
## t = 25.977, df = 3962.4, p-value < 2.2e-16
## alternative hypothesis: true difference in means is not equal to 0
## 95 percent confidence interval:
##  0.7527120 0.8756066
## sample estimates:
## mean of x mean of y 
##  4.530482  3.716323
#weighted ttest

ttest_d <- bind_rows(data.frame(response=d$support_for_federal_law_requiring_pig_space, question="Support for federal law requiring pig space", weights=d$survey_weight),
                     data.frame(response=d$US_public_support_for_federal_law_requiring_pig_space, question="US public support for federal law requiring pig space", weights=d$survey_weight))
ttest_d$response = as.numeric(ttest_d$response)

svy_design_ttest <- svydesign(ids = ~1, data = ttest_d, weights = ~weights)
                                
ttest_result <- svyttest(response ~ question, design = svy_design_ttest)
ttest_result
## 
##  Design-based t-test
## 
## data:  response ~ question
## t = -10.414, df = 4066, p-value < 2.2e-16
## alternative hypothesis: true difference in mean is not equal to 0
## 95 percent confidence interval:
##  -0.8490247 -0.5799875
## sample estimates:
## difference in mean 
##         -0.7145061

–Histograms with % and # selecting all responses for:

-Support for state law banning eggs from confinement -Support for federal law banning eggs from confinement

  • Also means for each of the above
weighted_mean(d, "support_for_state_law_banning_eggs_from_confinement")
var category proportion lb ub
support_for_state_law_banning_eggs_from_confinement Very unsupportive 0.0511691 0.0260085 0.0763297
support_for_state_law_banning_eggs_from_confinement Somewhat unsupportive 0.0452528 0.0336088 0.0568969
support_for_state_law_banning_eggs_from_confinement Neither supportive nor unsupportive 0.0875083 0.0624002 0.1126165
support_for_state_law_banning_eggs_from_confinement Somewhat supportive 0.1924430 0.1654896 0.2193963
support_for_state_law_banning_eggs_from_confinement Very supportive 0.6236267 0.5871811 0.6600722 
weighted_mean(d, "support_for_federal_law_banning_eggs_from_confinement")
var category proportion lb ub
support_for_federal_law_banning_eggs_from_confinement Very unsupportive 0.0537168 0.0325092 0.0749245
support_for_federal_law_banning_eggs_from_confinement Somewhat unsupportive 0.0572276 0.0365470 0.0779082
support_for_federal_law_banning_eggs_from_confinement Neither supportive nor unsupportive 0.0770142 0.0604129 0.0936155
support_for_federal_law_banning_eggs_from_confinement Somewhat supportive 0.1903118 0.1625135 0.2181101
support_for_federal_law_banning_eggs_from_confinement Very supportive 0.6217295 0.5860859 0.6573732

Histograms with % and # selecting all responses for:

-Support for state law banning octopus farming -Support for state law banning importation of farmed octopuses -Support for a federal law banning octopus farming -United States general public support for federal law banning octopus farming

-Also means for each of the above and t-tests comparing -Support for a federal law banning octopus farming -United States general public support for federal law banning octopus farming

var category proportion lb ub
support_for_state_law_banning_octopus_farming Very unsupportive 0.0603380 0.0386892 0.0819868
support_for_state_law_banning_octopus_farming Somewhat unsupportive 0.0825225 0.0564963 0.1085486
support_for_state_law_banning_octopus_farming Neither supportive nor unsupportive 0.1681168 0.1387911 0.1974425
support_for_state_law_banning_octopus_farming Somewhat supportive 0.1862206 0.1595751 0.2128661
support_for_state_law_banning_octopus_farming Very supportive 0.5028021 0.4668421 0.5387621
var category proportion lb ub
support_for_state_law_banning_importation_of_farmed_octopuses Very unsupportive 0.0667325 0.0448449 0.0886201
support_for_state_law_banning_importation_of_farmed_octopuses Somewhat unsupportive 0.0858224 0.0610324 0.1106125
support_for_state_law_banning_importation_of_farmed_octopuses Neither supportive nor unsupportive 0.1799837 0.1490877 0.2108797
support_for_state_law_banning_importation_of_farmed_octopuses Somewhat supportive 0.1977671 0.1708171 0.2247171
support_for_state_law_banning_importation_of_farmed_octopuses Very supportive 0.4696942 0.4343476 0.5050409
var category proportion lb ub
support_for_a_federal_law_banning_octopus_farming Very unsupportive 0.0786411 0.0546880 0.1025941
support_for_a_federal_law_banning_octopus_farming Somewhat unsupportive 0.0972292 0.0677838 0.1266745
support_for_a_federal_law_banning_octopus_farming Neither supportive nor unsupportive 0.1575033 0.1325445 0.1824621
support_for_a_federal_law_banning_octopus_farming Somewhat supportive 0.1849545 0.1582436 0.2116654
support_for_a_federal_law_banning_octopus_farming Very supportive 0.4816720 0.4460484 0.5172957
var category proportion lb ub
US_support_for_a_federal_law_banning_octopus_farming Very unsupportive 0.0813701 0.0574377 0.1053025
US_support_for_a_federal_law_banning_octopus_farming Somewhat unsupportive 0.1815975 0.1564129 0.2067822
US_support_for_a_federal_law_banning_octopus_farming Neither supportive nor unsupportive 0.3276290 0.2943106 0.3609475
US_support_for_a_federal_law_banning_octopus_farming Somewhat supportive 0.2526433 0.2199771 0.2853095
US_support_for_a_federal_law_banning_octopus_farming Very supportive 0.1567600 0.1324503 0.1810698 
## Mean support for state law banning octopus farming:  <table>
##  <thead>
##   <tr>
##    <th style="text-align:left;"> var </th>
##    <th style="text-align:right;"> mean </th>
##    <th style="text-align:right;"> lb </th>
##    <th style="text-align:right;"> ub </th>
##   </tr>
##  </thead>
## <tbody>
##   <tr>
##    <td style="text-align:left;"> support_for_state_law_banning_octopus_farming </td>
##    <td style="text-align:right;"> 3.988626 </td>
##    <td style="text-align:right;"> 3.885362 </td>
##    <td style="text-align:right;"> 4.09189 </td>
##   </tr>
## </tbody>
## </table>
## Mean support for state law banning importation of farmed octopuses:  <table>
##  <thead>
##   <tr>
##    <th style="text-align:left;"> var </th>
##    <th style="text-align:right;"> mean </th>
##    <th style="text-align:right;"> lb </th>
##    <th style="text-align:right;"> ub </th>
##   </tr>
##  </thead>
## <tbody>
##   <tr>
##    <td style="text-align:left;"> support_for_state_law_banning_importation_of_farmed_octopuses </td>
##    <td style="text-align:right;"> 3.917868 </td>
##    <td style="text-align:right;"> 3.816696 </td>
##    <td style="text-align:right;"> 4.019041 </td>
##   </tr>
## </tbody>
## </table>
## Mean support for a federal law banning octopus farming:  <table>
##  <thead>
##   <tr>
##    <th style="text-align:left;"> var </th>
##    <th style="text-align:right;"> mean </th>
##    <th style="text-align:right;"> lb </th>
##    <th style="text-align:right;"> ub </th>
##   </tr>
##  </thead>
## <tbody>
##   <tr>
##    <td style="text-align:left;"> support_for_a_federal_law_banning_octopus_farming </td>
##    <td style="text-align:right;"> 3.893787 </td>
##    <td style="text-align:right;"> 3.784347 </td>
##    <td style="text-align:right;"> 4.003228 </td>
##   </tr>
## </tbody>
## </table>
## Mean US public support for federal law banning octopus farming:  <table>
##  <thead>
##   <tr>
##    <th style="text-align:left;"> var </th>
##    <th style="text-align:right;"> mean </th>
##    <th style="text-align:right;"> lb </th>
##    <th style="text-align:right;"> ub </th>
##   </tr>
##  </thead>
## <tbody>
##   <tr>
##    <td style="text-align:left;"> US_support_for_a_federal_law_banning_octopus_farming </td>
##    <td style="text-align:right;"> 3.221826 </td>
##    <td style="text-align:right;"> 3.135887 </td>
##    <td style="text-align:right;"> 3.307764 </td>
##   </tr>
## </tbody>
## </table>
## 
##  Design-based t-test
## 
## data:  response ~ question
## t = -9.4661, df = 4063, p-value < 2.2e-16
## alternative hypothesis: true difference in mean is not equal to 0
## 95 percent confidence interval:
##  -0.8111325 -0.5327906
## sample estimates:
## difference in mean 
##         -0.6719616

Histogram with % and # selecting all responses for Support for NOAA speed restrictions. Mean as well.

var category proportion lb ub
support_for_NOAA_speed_restrictions Very unsupportive 0.0328314 0.0108487 0.0548142
support_for_NOAA_speed_restrictions Somewhat unsupportive 0.0309790 0.0207259 0.0412321
support_for_NOAA_speed_restrictions Neither supportive nor unsupportive 0.0818412 0.0596246 0.1040578
support_for_NOAA_speed_restrictions Somewhat supportive 0.2235215 0.1948249 0.2522181
support_for_NOAA_speed_restrictions Very supportive 0.6308269 0.5950808 0.6665730

-Histograms with % and # selecting all responses to “Pet owernship” and “Visited zoo/wildlife sanctuary” and “Frequency of wildlife viewing”

Table with % Yes for the following:

  • Identify as animal activist
  • Have friends who are farmers or ranchers
  • Have made an effort to reduce consumption of meat and/or animal products
  • Have friends who hunt or fish
  • Vegan or vegetarian
  • Hunt or fish
  • Farmer or rancher
  • Friends/family generally share my views on animal welfare
  • Have friends who are vegan or vegetarian
Trait Percent Yes
Identify as animal activist 32.918891
Have friends who are farmers or ranchers 39.633350
Have made an effort to reduce consumption of meat and/or animal products 40.706527
Have friends who hunt or fish 70.786660
Vegan or vegetarian 7.209679
Hunt or fish 20.595941
Farmer or rancher 9.179462
Friends/family generally share my views on animal welfare 60.747394
Have friends who are vegan or vegetarian 58.138632

Figure for: How would you feel about a law in your state banning the use of the following methods for killing carnivores:

var Support for ban proportion lb ub
Electronic calling devices Neither supportive nor unsupportive 0.175 0.147 0.204
Electronic calling devices Somewhat supportive 0.169 0.146 0.191
Electronic calling devices Somewhat unsupportive 0.121 0.095 0.147
Electronic calling devices Very supportive 0.430 0.395 0.464
Electronic calling devices Very unsupportive 0.105 0.076 0.133
Purposefully running them over with vehicles Neither supportive nor unsupportive 0.059 0.037 0.081
Purposefully running them over with vehicles Somewhat supportive 0.118 0.093 0.143
Purposefully running them over with vehicles Somewhat unsupportive 0.030 0.022 0.039
Purposefully running them over with vehicles Very supportive 0.684 0.648 0.720
Purposefully running them over with vehicles Very unsupportive 0.108 0.083 0.134
Chasing them with dogs before killing them Neither supportive nor unsupportive 0.136 0.107 0.166
Chasing them with dogs before killing them Somewhat supportive 0.162 0.139 0.184
Chasing them with dogs before killing them Somewhat unsupportive 0.080 0.063 0.096
Chasing them with dogs before killing them Very supportive 0.513 0.477 0.549
Chasing them with dogs before killing them Very unsupportive 0.109 0.082 0.136
Night hunting with lights and scopes Neither supportive nor unsupportive 0.219 0.188 0.250
Night hunting with lights and scopes Somewhat supportive 0.153 0.132 0.174
Night hunting with lights and scopes Somewhat unsupportive 0.120 0.095 0.144
Night hunting with lights and scopes Very supportive 0.387 0.353 0.421
Night hunting with lights and scopes Very unsupportive 0.121 0.092 0.150
Baiting them with food Neither supportive nor unsupportive 0.206 0.173 0.238
Baiting them with food Somewhat supportive 0.191 0.166 0.216
Baiting them with food Somewhat unsupportive 0.126 0.102 0.150
Baiting them with food Very supportive 0.362 0.330 0.395
Baiting them with food Very unsupportive 0.115 0.086 0.143
Poisoning Neither supportive nor unsupportive 0.072 0.051 0.093
Poisoning Somewhat supportive 0.091 0.075 0.107
Poisoning Somewhat unsupportive 0.064 0.049 0.078
Poisoning Very supportive 0.612 0.575 0.649
Poisoning Very unsupportive 0.162 0.127 0.197
Aerial Gunning (i.e., using aircraft to chase and shoot them) Neither supportive nor unsupportive 0.157 0.127 0.187
Aerial Gunning (i.e., using aircraft to chase and shoot them) Somewhat supportive 0.123 0.103 0.142
Aerial Gunning (i.e., using aircraft to chase and shoot them) Somewhat unsupportive 0.076 0.061 0.091
Aerial Gunning (i.e., using aircraft to chase and shoot them) Very supportive 0.486 0.451 0.522
Aerial Gunning (i.e., using aircraft to chase and shoot them) Very unsupportive 0.158 0.122 0.194

Combined Histograms

## 
## Attaching package: 'cowplot'
## The following object is masked from 'package:lubridate':
## 
##     stamp

## Coordinate system already present. Adding new coordinate system, which will
## replace the existing one.
## Coordinate system already present. Adding new coordinate system, which will
## replace the existing one.
## Coordinate system already present. Adding new coordinate system, which will
## replace the existing one.
## Coordinate system already present. Adding new coordinate system, which will
## replace the existing one.
## Coordinate system already present. Adding new coordinate system, which will
## replace the existing one.

## Coordinate system already present. Adding new coordinate system, which will
## replace the existing one.
## Coordinate system already present. Adding new coordinate system, which will
## replace the existing one.
## Coordinate system already present. Adding new coordinate system, which will
## replace the existing one.
## Coordinate system already present. Adding new coordinate system, which will
## replace the existing one.

## Coordinate system already present. Adding new coordinate system, which will
## replace the existing one.
## Coordinate system already present. Adding new coordinate system, which will
## replace the existing one.
## Coordinate system already present. Adding new coordinate system, which will
## replace the existing one.

Regression results

Outcome: Rank of animal welfare personal

Coef Pvalue
(Intercept) 3.71 (2.97, 4.44) 0***
Pet owernshipYes I currently own a pet 1.69 (1.26, 2.12) 0***
Pet owernshipYes I have had a pet before but do not currently own a pet 0.76 (0.3, 1.21) 0.0011**
Visited zoo/wildlife sanctuary -0.84 (-1.13, -0.55) 0***
Frequency of wildlife viewing 0.1 (-0.01, 0.21) 0.0687
Identify as animal activist 1.85 (1.61, 2.09) 0***
Have friends who are farmers or ranchers -0.08 (-0.31, 0.15) 0.5028
Have made an effort to reduce consumption of meat and/or animal products 0.6 (0.36, 0.85) 0***
Have friends who hunt or fish -0.63 (-0.87, -0.38) 0***
Vegan or vegetarian 0.27 (-0.15, 0.68) 0.2071
Hunt or fish -0.09 (-0.37, 0.18) 0.5062
Farmer or rancher -0.07 (-0.44, 0.31) 0.7302
Friends/family generally share my views on animal welfare 0.01 (-0.21, 0.23) 0.9086
Have friends who are vegan or vegetarian 0.28 (0.05, 0.5) 0.0155*
Spanish, Hispanic, or Latino 0.07 (-0.26, 0.4) 0.6729
RaceBlack or African American 0.45 (0.11, 0.79) 0.0087**
RaceAsian -0.16 (-0.6, 0.28) 0.4781
RaceMixed race -0.33 (-0.73, 0.06) 0.0961
RaceOther 0.25 (-0.12, 0.62) 0.1886
Education -0.09 (-0.16, -0.01) 0.0183*
Income -0.04 (-0.11, 0.03) 0.2731
Age 0.11 (0.04, 0.18) 9e-04***
male -0.35 (-0.57, -0.14) 0.0011**
Political affiliationDemocrat 0.06 (-0.23, 0.35) 0.683
Political affiliationOther 0.51 (0.25, 0.76) 1e-04***

Outcome: Mean of ““Concern about….” questions

Coef Pvalue
(Intercept) 2.65 (2.38, 2.91) 0***
Pet owernshipYes I currently own a pet 0.47 (0.31, 0.62) 0***
Pet owernshipYes I have had a pet before but do not currently own a pet 0.08 (-0.09, 0.24) 0.3593
Visited zoo/wildlife sanctuary -0.3 (-0.4, -0.19) 0***
Frequency of wildlife viewing 0.08 (0.04, 0.12) 0***
Identify as animal activist 0.42 (0.34, 0.51) 0***
Have friends who are farmers or ranchers -0.13 (-0.21, -0.05) 0.0025**
Have made an effort to reduce consumption of meat and/or animal products 0.19 (0.11, 0.28) 0***
Have friends who hunt or fish -0.05 (-0.14, 0.04) 0.2701
Vegan or vegetarian 0.16 (0.01, 0.31) 0.0392*
Hunt or fish -0.09 (-0.19, 0.01) 0.0915
Farmer or rancher -0.03 (-0.16, 0.11) 0.7154
Friends/family generally share my views on animal welfare 0.05 (-0.03, 0.13) 0.1879
Have friends who are vegan or vegetarian 0.19 (0.11, 0.27) 0***
Spanish, Hispanic, or Latino -0.2 (-0.32, -0.08) 0.0012**
RaceBlack or African American 0.12 (0, 0.24) 0.0577
RaceAsian -0.24 (-0.4, -0.09) 0.0024**
RaceMixed race -0.17 (-0.31, -0.03) 0.0184*
RaceOther 0.01 (-0.13, 0.14) 0.9118
Education 0 (-0.03, 0.02) 0.9101
Income -0.01 (-0.04, 0.01) 0.3683
Age 0.01 (-0.02, 0.03) 0.5805
male -0.15 (-0.22, -0.07) 2e-04***
Political affiliationDemocrat 0.28 (0.17, 0.38) 0***
Political affiliationOther 0.2 (0.11, 0.29) 0***

Outcome: Mean of “Importance of…” questions

Coef Pvalue
(Intercept) 3.15 (2.89, 3.42) 0***
Pet owernshipYes I currently own a pet 0.53 (0.38, 0.69) 0***
Pet owernshipYes I have had a pet before but do not currently own a pet 0.23 (0.07, 0.4) 0.0048**
Visited zoo/wildlife sanctuary -0.18 (-0.28, -0.07) 8e-04***
Frequency of wildlife viewing 0.06 (0.02, 0.1) 0.0021**
Identify as animal activist 0.37 (0.28, 0.45) 0***
Have friends who are farmers or ranchers -0.13 (-0.22, -0.05) 0.0018**
Have made an effort to reduce consumption of meat and/or animal products 0.24 (0.15, 0.33) 0***
Have friends who hunt or fish -0.03 (-0.12, 0.06) 0.5005
Vegan or vegetarian 0.06 (-0.09, 0.21) 0.4358
Hunt or fish -0.08 (-0.18, 0.02) 0.1214
Farmer or rancher -0.07 (-0.21, 0.06) 0.2868
Friends/family generally share my views on animal welfare 0.02 (-0.06, 0.1) 0.6537
Have friends who are vegan or vegetarian 0.17 (0.09, 0.25) 1e-04***
Spanish, Hispanic, or Latino -0.02 (-0.14, 0.1) 0.7541
RaceBlack or African American 0.14 (0.01, 0.26) 0.0286*
RaceAsian -0.04 (-0.2, 0.12) 0.6243
RaceMixed race -0.14 (-0.28, 0) 0.0559
RaceOther 0.09 (-0.05, 0.22) 0.1929
Education -0.04 (-0.07, -0.01) 0.0032**
Income -0.01 (-0.03, 0.02) 0.6432
Age -0.03 (-0.05, 0) 0.0268*
male -0.19 (-0.26, -0.11) 0***
Political affiliationDemocrat 0.3 (0.2, 0.4) 0***
Political affiliationOther 0.22 (0.13, 0.31) 0***