带有coord_flip和自定义文本的折线图

Question

我想生成一个看起来像这样的线图

我创建了一个测试数据框并将其绘制成

value <- c(75,65,75,32,25,75,57,31,25,25,25,75,75,75,25,75,50,40,75,60)
names <-  paste0("myscore_",letters[1:20])
df <- data.frame(value, names)
df$names <- as.character(df$names)
plot(df$value, type = "o", pch = 18, col = "red")

现在，我想制作水平情节，还要贴标签（df $名字） 在y轴上，所以我的输出应该是这样的

Answer 1

如果您不介意使用ggplot2库，可以选择以下选项：

g<-ggplot(data = df, aes(y = value,x= names))+geom_point(color = I("red"))+geom_line(group = I(1),color = I("red"))+theme_bw()+coord_flip()
g

要添加文字，您可以使用：

g+annotate(geom = "text", x= ... ,y = ..., label = "your label")

编辑：结果