Dotplot with error bars, two series, light jitter

Question

I have a collection of data over several studies. For each study I am interested about the mean of a variable by gender, and if this significantly differs. For each study I have the mean and 95% confidence intervals for both males and females. What I would like to do is something similar to this: I have used several flavours of dotplots (dotplot, dotplot2, Dotplot) but did not quite get there. Using `Dotplot` from `Hmisc` I managed to have one series and its errorbars, but I am at a loss on how to adding the second series. I used `Dotplot` and got the vertical ending of the error bars following advice given here. Here is a working example of the code I am using ``` data<-data.frame(ID=c("Study1","Study2","Study3"),avgm=c(2,3,3.5),avgf=c(2.5,3.3,4)) data$lowerm <- data$avgm*0.9 data$upperm <- data$avgm*1.1 data$lowerf <- data$avgf*0.9 data$upperf <- data$avgf*1.1 # Create the customized panel function mypanel.Dotplot <- function(x, y, ...) { panel.Dotplot(x,y,...) tips <- attr(x, "othe…

Accepted Answer

Unfortunately I can't help you with `Dotplot`, but I find it fairly straightforward using `ggplot`. You just need to rearrange the data slightly.

```
library(ggplot2)
# grab data for males
df_m <- data[ , c(1, 2, 4, 5)]
df_m$sex <- "m"
names(df_m) <- c("ID", "avg", "lower", "upper", "sex")
df_m

# grab data for females
df_f <- data[ , c(1, 3, 6, 7)]
df_f$sex <- "f"
names(df_f) <- c("ID", "avg", "lower", "upper", "sex")
df_m

# bind the data together
df <- rbind(df_m, df_f)

# plot
ggplot(data = df, aes(x = ID, y = avg, ymin = lower, ymax = upper, colour = sex)) +
  geom_point(position = position_dodge(width = 0.2)) +
  geom_errorbar(position = position_dodge(width = 0.2), width = 0.1) +
  coord_flip() +
  scale_colour_manual(values = c("blue", "red")) +
  theme_classic()
```

```
  # if you want horizontal grid lines you may change the last line with:
  theme_bw() +
  theme(panel.grid.major.y = element_line(colour = "grey", linetype = "dashed"),
        panel.grid.major.x = element_blank(),
        panel.grid.minor.x = element_blank()) 
```

Dotplot with error bars, two series, light jitter

Solution

Problem

Related problems