If I am trying to create a barplot with errors, what am I doing wrong in this code that is producing an error?

Question

Error message:

Error: unexpected '=' in:

" summarise(`Support For H-1B Visas` = mean(h1bvis.supp, na.rm = TRUE) %>%

sd ="

Code:

immig %>%

mutate(`Full Sample` = case_when(

tech.whitcol==1~ "Tech Workers",

nontech.whitcol==1~ "Other White Collar Workers",

nontech.whitcol==0 & employed==1~ "Non-Tech/Non-White Collar Workers",

employed==0~ "Not Employed" )) %>%

group_by(`Full Sample`) %>%

summarise(`Support For H-1B Visas` = mean(h1bvis.supp, na.rm = TRUE) %>%

sd = sd(`Full Sample`[[col]], na.rm=TRUE)) %>%

ggplot(aes(`Full Sample`,`Support For H-1B Visas`)) +

geom_bar(stat="identity") +

geom_errorbar(aes(ymin=`Support for H-1B Visas` - sd, ymax=`Support for H-1B Visas` - sd), width=.2) +

ggtitle("(a) Economic threat reduces support for H-1B visas")

Answer 1

sd should be part of the same summarize function as the mean.

Answer 2

Rewrite the following chunk as:

summarise(`Support For H-1B Visas` = mean(h1bvis.supp, na.rm = TRUE),

sd = sd(`Full Sample`[[col]], na.rm=TRUE)) %>%