Mark comments on Jennifer qual paper

DISCLAIMER #1: Given time constraints, the language below is very direct/curt. This is exclusively attributable to wanting to detail the greatest number of proposed edits in the limited time I have allocated to complete this and is NOT indicative of my opinions on the manuscript. I think this is extremely well done and want to make sure that the curtness of my comments are not mistaken for disapproval.

DISCLAIMER #2: Sorry for any grammar/spelling issues

Big picture

My central comment pertaining to your abstract/intro/lit review/theory sections is that all the right pieces are there, but I think you need to be more direct in putting up “sign posts” for the reader to follow your reasoning. You need to be more explicit in laying out your argument and the logic underpinning it. Put simply, you need to use more of an active voice. I also think there are some bits you could trim that are not essential to supporting your argument. On another note, I think you need to name-drop fewer studies and just cite them parenthetically when thematically characterizing existing work. When you do describe particular studies, your descriptions should be shorter, focusing narrowly on the key takeaways that are relevant to your argument. Below, I propose a template for your lit review that maintains an active voice and places “sign posts” for the reader to easily track your reasoning.

Below I will propose a revised theory—and by extension, some revised analyses. The first half of this theory is almost identical to what you have now, so even if you don’t like the proposed changes, much of my comments should still be useful to you.

Turning to your analyses, I think you handicapped yourself by (1) coding your independent variables as categorical vs ordinal, as this dramatically reduces your power in your already small samples, and (2) by analyzing the 2016 and 2020 surveys separately versus pooled. If you continue with the ANES, I think that you should revise these two items.

Outline of new argument

Summary of existing work (no real changes from what you have now)

  1. Immigration is heavily stigmatized.
  2. Latinos are stereotyped as immigrants, which, because of its stigmatization, carries negative social consequences (e.g., xenophobia towards Latinos). Research on the political implications of this stigmatization for Latinos is limited, and even less is known about how this varies by indicators such as pan-ethnic group consciousness, geography, and generational status.
  3. SIT posits that we derive self-esteem from group identification. Further, when our group is attacked, SIT posits that strong- and weak-identifiers react differently. Strong identifiers “lean in” to their attacked characteristic while weak identifiers distance themselves from it. This has a straightforward application to the case of Latinos and social stigma surrounding immigration: strong-identifiers should “lean in” to their connection with immigrants while weak-identifiers should distance themselves from it.
  4. How would we expect this to manifest politically? One obvious way pertains to attitudes on immigration. A second way pertains to support for parties broadly recognized to be pro/anti-immigration. Put simply: strong-identifiers should have more liberal immigration attitudes and be more supportive of the Democratic Party, while weak-identifiers should have the inverse. Indeed, some existing work suggests this is the case (Perez 2015; Garcia-rios et al. 2019).

What Jennifer is adding

  1. One way the relationship between identity strength and political attitudes may vary is by geography: (1) In border states/regions, the policing of immigration is very visible and anti-immigration rhetoric is ubiquitous in local politics. Therefore, stigmatization—and by extension, the political reactions of strong- and weak-identifiers—may be stronger there. (2) In addition, Latinos may also be reminded of this stigmatization in geographic regions with high proportions of foreign-born Latinos. Therefore, stigmatization—and by extension, the political reactions of strong- and weak-identifiers—may be stronger there.
  2. A second way by which the relationship between identity strength and political attitudes may vary is by generational status. Weak identifying immigrants should have sympathy for people like them, and hence their weak pan-ethnic identification should not manifest in conservatism on immigration and republican partisanship. Conversely, later-generation weak-identifying Latinos, more distanced from the immigration experience, should be more likely to let their weak-identification manifest in conservative attitudes/GOP partisanship.

NOTE: I can actually see the “proportion of foreign-born Latinos” argument going the other way. Latinos living in areas with lots of foreign born Latinos may be more sympathetic to them. Maybe you could run your models first, and then post-hoc revise your theory to fit your results :)

Expectations

H1: Pan-ethnic group consciousness is positively associated with more liberal attitudes on the border and support for the Democratic Party among Latinos.

H2: This relationship is strongest in border regions.

H3: This relationship is strongest in geographic areas with high proportions of foreign-born Latinos. [Or the inverse…see earlier note…either way, this is a super interesting piece of geographic variation no matter what you argue]

H4: The positive association between weak-identification and conservative immigration attitudes and Republican Partisanship is driven by later-generation Latinos.

Abstract/Intro

If you go this route, revise your abstract/intro to basically summarize the previous section + talk about methods/findings.

Lit review

NDISCLAIMER #1:: Here is my proposed re-working of the lit review. I think that your first two sections are great, and my edits are mostly geared towards making your argument more explicit. However, I think the remaining sections of your literature review are too long, describing findings that aren’t directly supporting your argument.

DISCLAIMER #2: I kind of ran out of time near the end, but you’ll get the idea.

  • Stigmatization of immigration
    • Thee is lots of stigma around immigration. For example, survey reveals that Americans [whites?] associate immigration with negative things like X, Y, and Z. Americans are more likely to stereotype Latinos as immigrants because of factors such as the high proportion of foreign born Americans among this group (cite), the large proportion of US immigrants coming from Latin America (cite), and those subject to immigration enforcement being overwhelmingly Latino (cite). Given the negative stigma associated with immigration, Latinos being broadly stereotyped as immigrants has predictable social implications. Media coverage among Latinos is often negative (cite) and Latinos are often the subject of xenophobic political attacks (cites). While some studies have examined how Latinos respond politically to these attacks, research on this front is limited. Even less is known about these reactions vary by indicators such as pan-ethnic group consciousness and one’s proximity to the immigration experience.
  • SIT, Latinos, and immigration
    • According to social identity theory, humans are predisposed to view social group memberships as central to one’s self-conception, and seek to engage in favorable inter-group evaluations to improve one’s self-esteem (cites). How individuals react when their social group is attacked varies systematically by the strength of their attachment to that social group (cite). Individuals with strong group attachments are often emboldened by these attacks, “leaning in” to the attacked characteristic. Among individuals with weak social group attachments, however, the inverse appears true. That is, weak identifiers may distance themselves from the attacked characteristic to avoid psychological discomfort stemming from associating oneself with the content of the political attack.

    • This model has a straightforward application to social stigma rooted in immigration directed towards Latinos. For Latinos, pan-ethnic group identification is often captured using measures such as [insert examples]. According to SIT, how Latinos react to border stigmatization should vary systematically by identity strength: weak-identifiers should distance themselves from immigrants while high-identifiers should do the inverse.

    • What are the political implications of these reactions by high- and low-identifiers? One expectation appears obvious: it will impact their political attitudes on immigration. However, this could also manifest in their political partisanship. In recent years the Democratic Party has become more liberal on the issue of immigration. Many Latino voters appear to be aware of this: liberal immigration attitudes appear positively correlated with Democratic partisanship and support for Democratic candidates among this group. Therefore, when faced with stigma about immigration, weak identifiers can be expected to become more hawkish on immigration and more supportive of the Republican Party, and vice versa. Indeed, these expectations are consistent with some existing research. For example, an experiment by Perez (2015) finds that Latinos with weak pan-ethnic group attachments distanced themselves from the group when exposed to xenophobic political attacks. Further, Garcia-Rios et al. 2019) find that views of Donald Trump—whose political tenure was defined by his hostile rhetoric towards Latinos (cites)—vary systematically by identity strength in a similar way, with high-identifiers offering less favorable evaluations. Therefore, identity strength appears to moderate Latinos’ reactions to border stigmatization.

  • Variation in this relationship (i ran out of time lol)
    • I argue that the experience of this stigma around immigration varies systematically by three indicators one’s proximity to the immigration experience: (1) generational status, (2) proximity to the border, and (3) the proportion of foreign-born Latinos within a geographic region.

    • Generational status. Among weak-identifiers, immigrants are less likely to become conservative on immigration because they have sympathy for immigrants.

    • Geography. Immigrants are heavily demonized in border regions. [expand a bunch on this.] Therefore, the relationship between identity strength and attitudes/PID should be strongest here. In addition. [defend the % immigrant argument you ultimately end up making]

Methods/Results

Dependent variables. Be sure to add pid/vote choice as models. This will leave you with four outcome variables: (1) wall, (2) tighten border security, (3) 7-pt PID, (4) supporting Trump in 2020.

Independent variables. Your sample is too small for categorical variables. Make them ordinal like how they are coded below. (Or honestly, even dichotomous, especially since you may have interaction terms in your models.)

Data. Pool ANES 2016 and 2020. This will give you larger N. You can always put individual models in the appendix.

Coding. Re-code all IVs and DVs between 0 and 1 so the models aren’t buttcheeks to interpret.

Models. Your equations should look like this:

mod <- lm(outcome ~ identity*generation + identity*prop_foreign + identity*border + demographic_covariates + penethnic_covariates, data, weights = weights)

BELOW YOU WILL FIND SOME EXAMPLE ANALYSES. NOTE THAT DUE TO LIMITED TIME I DID NOT COMPLETE EVERYTHING ABOVE. ACCORDINGLY, DO NOT PUT ANY STOCK IN THE RESULTS WHATSOEVER AS THEY COULD BE COMPLETELY DIFFERENT. (ALTHOUGH THE GENERATIONAL STATUS RESULTS ARE PROMISING.) INSTEAD, THEY ARE MUST MEANT TO BE AN EXAMPLE OF HOW I’D SET UP THE MODELS RE THE INTERACTION TERMS, AS WELL AS HOW YOU COULD DISPLAY THE RESULTS.

Show the code
library(tidyverse)
library(interactions)
library(patchwork)
library(stargazer)
# Load
setwd("~/Downloads")
anes_20 <- read.csv("anes_timeseries_2020_csv_20220210.csv")

setwd("~/Library/Mobile Documents/com~apple~CloudDocs/PhD/Classes/Fall 2022/Latino Politics")
latino_pct <- read.csv('latino_foreign_pct_by_state.csv')



# Prep
anes20 <- anes_20 %>% 
  filter(V201546 == 1) %>% # just Latinos
  mutate(
    Male = case_when(V201600 == 1 ~ 1,
                     V201600 == 2 ~ 0),
  Border = case_when(V201014b == 6 ~ "Border State",
                           V201014b == 4 ~ "Border State",
                           V201014b == 48 ~ "Border State",
                           V201014b == 35 ~ "Border State",
                           T ~ 'Non-Border State'),
  Conservative = case_when(V201200 == 1 ~ 1,
                       V201200 == 2 ~ 2,
                       V201200 == 3 ~ 3,
                       V201200 == 4 ~ 4,
                       V201200 == 5 ~ 5,
                       V201200 == 6 ~ 6,
                       V201200 == 7 ~ 7),
  GOP = case_when(V201231x == 1 ~ 1,
                    V201231x == 2 ~ 2,
                    V201231x == 3 ~ 3,
                    V201231x == 4 ~ 4,
                    V201231x == 5 ~ 5,
                    V201231x == 6 ~ 6,
                    V201231x == 7 ~ 7),
  Married = case_when(V201508 == 1 ~ 1,
                      V201508 == 2 ~ 1,
                      V201508 == 3 ~ 0,
                      V201508 == 4 ~ 0,
                      V201508 == 5 ~ 0,
                      V201508 == 6 ~ 0),
  Education = case_when(V201511x == 1 ~ 1,
                        V201511x == 2 ~ 2,
                        V201511x == 3 ~ 3,
                        V201511x == 4 ~ 4,
                        V201511x == 5 ~ 5),
  Mexican = ifelse(V201558x == 1, 1, 0),
  Spanish = case_when(V201562 == 1 ~ 1,
                       V201562 == 2 ~ 2,
                       V201562 == 3 ~ 3,
                       V201562 == 4 ~ 4,
                       V201562 == 5 ~ 5),
  Border_Wall = case_when(V201426x == 1 ~ 7,                                     # Originally 1 - Favor a great deal, 7 - Oppose a great deal
                          V201426x == 2 ~ 6,
                          V201426x == 3 ~ 5,
                          V201426x == 4 ~ 4,
                          V201426x == 5 ~ 3,
                          V201426x == 6 ~ 2,
                          V201426x == 7 ~ 1),                                     # reversed so decrease means oppose
  Hispanic_Candidate = case_when(V202220 == 1 ~ 5,                               # 1 - Extremely Imp, 5 - Not at all 
                                 V202220 == 2 ~ 4, 
                                 V202220 == 3 ~ 3,
                                 V202220 == 4 ~ 2,
                                 V202220 == 5 ~ 1),
  UnfairLaws_Hisp = case_when(V202485 == 1 ~ 5,                                 # 1 - Extremely Imp, 5 - Not at all 
                          V202485 == 2 ~ 4, 
                          V202485 == 3 ~ 3,
                          V202485 == 4 ~ 2,
                          V202485 == 5 ~ 1),
  Linked_Fate = case_when(V202506 == 1 ~ 4,                                      # 1 - A lot, 5 - Not at all 
                          V202506 == 2 ~ 3, 
                          V202506 == 3 ~ 2,
                          V202506 == 4 ~ 1),
  Tighten_Border = case_when(V201306 == 1 ~ 1,                                   # 1 - Increased, 0 - Kept the same, -1 Decreased
                             V201306 == 3 ~ 0,
                             V201306 == 2 ~ -1),
  Latino_Identity = Hispanic_Candidate + UnfairLaws_Hisp + Linked_Fate,
  Age = ifelse(V201507x == -9, NA, V201507x),
         immig = case_when(V201554 == 4 ~ 'First', # immig
                           V201553 == 2 | V201553 == 3 ~ 'Second', # second gen
                           V201553 == 1 ~ 'Third+'), # third gen +
         State_ANES = V203001,
         Trump = ifelse(V202073 == 2, 1, 0)
  )

anes20$V201231x[anes20$V201231x < 0] <- NA
anes20$V201510[anes20$V201510 < 0] <- NA
anes20$V201617x[anes20$V201617x < 0] <- NA
anes20$V201507x[anes20$V201507x < 0] <- NA
anes20$V201510[anes20$V201510 > 8] <- NA

latinos <- merge(anes20, latino_pct, by = 'State_ANES')

latinos <- merge(anes20, latino_pct, by = 'State_ANES')

latinos <- latinos %>% 
  mutate(high_latino_pct = ifelse(latino_pct > mean(latino_pct, na.rm = T), 'High proportion', 'Low proportion'))
Show the code
wall <- lm(Border_Wall ~ 
              
              # key interactions
              Linked_Fate*immig + 
              Linked_Fate*high_latino_pct +
              Linked_Fate*Border +
              
              # demogrpahic controls
              Age + Education + Married + 
              
              # panethnic controls
              Mexican + Spanish, 
            
            # weights, family, and data
            latinos, weights = V200010b)



p1 <- interact_plot(wall, pred = Linked_Fate, modx = immig) + ggtitle('Wall')
p2 <- interact_plot(wall, pred = Linked_Fate, modx = high_latino_pct)
p3 <- interact_plot(wall, pred = Linked_Fate, modx = Border)
p1 + p2 + p3 + plot_layout(ncol = 1) 

Show the code
tighten <- lm(Tighten_Border ~ 
              
              # key interactions
              Linked_Fate*immig + 
              Linked_Fate*high_latino_pct +
              Linked_Fate*Border +
              
              # demogrpahic controls
              Age + Education + Married + 
              
              # panethnic controls
              Mexican + Spanish, 
            
            # weights, family, and data
            latinos, weights = V200010b)
p1 <- interact_plot(tighten, pred = Linked_Fate, modx = immig)+ ggtitle('Tighten')
p2 <- interact_plot(tighten, pred = Linked_Fate, modx = high_latino_pct)
p3 <- interact_plot(tighten, pred = Linked_Fate, modx = Border)
p1 + p2 + p3 + plot_layout(ncol = 1)

Show the code
gop <- lm(GOP ~ 
              
              # key interactions
              Linked_Fate*immig + 
              Linked_Fate*high_latino_pct +
              Linked_Fate*Border +
              
              # demogrpahic controls
              Age + Education + Married + 
              
              # panethnic controls
              Mexican + Spanish, 
            
            # weights, family, and data
            latinos, weights = V200010b)
p1 <- interact_plot(gop, pred = Linked_Fate, modx = immig)+ ggtitle('GOP')
p2 <- interact_plot(gop, pred = Linked_Fate, modx = high_latino_pct)
p3 <- interact_plot(gop, pred = Linked_Fate, modx = Border)
p1 + p2 + p3 + plot_layout(ncol = 1)

Show the code
trump <- lm(Trump ~ 
              
              # key interactions
              Linked_Fate*immig + 
              Linked_Fate*high_latino_pct +
              Linked_Fate*Border +
              
              # demogrpahic controls
              Age + Education + Married + 
              
              # panethnic controls
              Mexican + Spanish, 
            
            # weights, family, and data
            latinos, weights = V200010b)
p1 <- interact_plot(trump, pred = Linked_Fate, modx = immig)+ ggtitle('Trump')
p2 <- interact_plot(trump, pred = Linked_Fate, modx = high_latino_pct)
p3 <- interact_plot(trump, pred = Linked_Fate, modx = Border)
p1 + p2 + p3 + plot_layout(ncol = 1)

Show the code
stargazer(wall, tighten, gop, trump, type = 'html')
Dependent variable:
Border_Wall Tighten_Border GOP Trump
(1) (2) (3) (4)
Linked_Fate -0.294 0.055 -0.299* -0.019
(0.190) (0.071) (0.172) (0.029)
immigSecond 0.208 0.278 0.725 0.006
(0.667) (0.248) (0.606) (0.102)
immigThird+ 1.983*** 0.633*** 2.584*** 0.086
(0.628) (0.234) (0.570) (0.096)
high_latino_pctLow proportion -0.871 0.152 -0.244 0.277***
(0.581) (0.216) (0.527) (0.089)
BorderNon-Border State 1.179** 0.299 0.342 -0.089
(0.599) (0.223) (0.544) (0.092)
Age 0.004 0.007*** -0.007 0.001
(0.006) (0.002) (0.005) (0.001)
Education -0.112 -0.079*** 0.057 0.018
(0.077) (0.029) (0.070) (0.012)
Married 0.628*** 0.252*** 0.514*** 0.091***
(0.181) (0.068) (0.164) (0.028)
Mexican -0.308* -0.082 0.177 0.051*
(0.180) (0.067) (0.164) (0.028)
Spanish -0.205** -0.047 0.038 -0.030**
(0.085) (0.032) (0.077) (0.013)
Linked_Fate:immigSecond 0.081 -0.037 -0.126 0.0003
(0.222) (0.083) (0.202) (0.034)
Linked_Fate:immigThird+ -0.513** -0.165** -0.708*** -0.026
(0.212) (0.079) (0.192) (0.032)
Linked_Fate:high_latino_pctLow proportion 0.279 -0.085 -0.032 -0.088***
(0.202) (0.075) (0.184) (0.031)
Linked_Fate:BorderNon-Border State -0.350* -0.093 0.054 0.033
(0.204) (0.076) (0.185) (0.031)
Constant 3.544*** -0.307 3.304*** 0.050
(0.775) (0.289) (0.704) (0.119)
Observations 594 594 594 595
R2 0.160 0.115 0.162 0.091
Adjusted R2 0.140 0.093 0.142 0.069
Residual Std. Error 2.402 (df = 579) 0.894 (df = 579) 2.181 (df = 579) 0.368 (df = 580)
F Statistic 7.879*** (df = 14; 579) 5.366*** (df = 14; 579) 7.990*** (df = 14; 579) 4.154*** (df = 14; 580)
Note: p<0.1; p<0.05; p<0.01