library(ggplot2)

DATA <- read.csv(file.choose(), header=TRUE)

DATA$GROUP <- factor(DATA$GROUP, levels=rev(c("Racial resentment of 12 on 0-to-12 index (N=53)","Racial resentment of 11 or 12 on a 0-to-12 index (N=90)","Racial resentment of more than 6 on a 0-to-12 index (N=288)","At least 1 negative stereotype of Blacks compared to Whites (N=175)","At least 2 negative stereotypes of Blacks compared to Whites (N=102)","Three negative stereotypes of Blacks compared to Whites (N=64)","Rated Blacks < 50 on 0-to-100 thermo but Whites 50 or above (N=41)","Rated Blacks >50 lower than Whites on 0-to-100 thermo (N=18)","Rated Blacks lower than Whites on 0-to-100 thermo (N=297)")))

ggplot(DATA, aes(100*PE, GROUP)) +
  geom_rect(aes(xmin=-Inf, xmax=0, ymin=-Inf, ymax=Inf), color="black", fill="slategray3") +
  geom_errorbarh(aes(xmin=100*CILO.95, xmax=100*CIHI.95), height=0, size=0.5) +
  geom_errorbarh(aes(xmin=100*CILO.83, xmax=100*CIHI.83), height=0, size=1.5) +
  geom_point(shape=21, color="black", fill="slategray3", size=4, stroke=2) +
  scale_x_continuous(name="", breaks=seq(-20,100,20), limits=c(-25,100), labels=scales::number_format(accuracy=1)) +
  geom_text(aes(x=100, label=scales::percent(PE, accuracy=1L)), position=position_dodge(width=0.7), hjust=1, size=4.5) +
labs(title="Pro-White Mock Juror Bias, among Whites", caption="Thick error bars are 83.4% confidence intervals; thin error bars are 95% confidence\nintervals. Estimates are from unweighted analyses, indicating percentage point\ndifferences in rating the Black target guilty relative to the White target. Total\nN is 649 Whites with responses for the 'guilty' item. Data source: Rice et al. 2021") +
theme(
        plot.background=element_rect(fill="white"),
        strip.background=element_rect(color="black", fill="black"),
        strip.text.x=element_text(color="white", face="bold", size=15, margin=margin(t=7.5, b=7.5)),
        panel.grid.major.x=element_blank(), 
        panel.grid.major.y=element_blank(),
        panel.grid.minor.x=element_blank(), 
        panel.grid.minor.y=element_blank(),
        panel.background=element_rect(fill="gray90", color="black", size=0.5, linetype="solid"),
        panel.border=element_rect(fill=NA, color="black", linetype="solid", size=1.5),
        panel.spacing.x=unit(1, "lines"),
        panel.spacing.y=unit(1, "lines"),
        axis.title.y=element_blank(),
        axis.title.x=element_text(size=12, color="black"),
        axis.ticks.y=element_blank(),
        axis.ticks.x=element_blank(),
        axis.text.x=element_text(size=12, color="black", vjust=-1),
        axis.text.y=element_text(size=12, color="black", margin=margin(r=10)),
        plot.margin=unit(c(0.5,0.5,0.5,0.5),"cm"),
        plot.title=element_text(face="bold", margin=margin(t=0, b=13), size=15, hjust=0.5),
        plot.subtitle=element_text(hjust=0.5, size=12),
        plot.caption=element_text(hjust=0, size=9))

ggsave(file="D:R plot Pro-White GUILTY 83 95.svg", width=10.5, height=4.5)