我正在尝试制作一个类似于我在 R 中附上的照片的图表。我将使用分类数据而不是照片中显示的数字数据。首先，这种图叫什么？其次，有没有一个函数可以帮助我在 R 中重新创建一个类似于这个的图表？您会推荐任何软件包吗，或者这对 base R 可行吗？

最佳答案

你当然可以重现情节。目前尚不清楚如何使用您自己的数据实现这一点，因为您尚未共享它，但我可能会像这样重现它:

df <- data.frame(x = seq(-0.5, 14.5, length.out = 1000))

library(ggplot2)

ggplot(df, aes(x = x, color = x)) +
  geom_segment(aes(xend = x, y = 1, yend = 2)) +
  scale_color_gradientn(colours = c("#f794a7", "#f6a79b", "#f4b896",
                                    "#f6c392", "#f4cc95", "#ecd798",
                                    "#d5e299", "#b9ef96", "#a7f0af",
                                    "#9de9d5", "#8fe2f8", "#93ccf6",
                                    "#90b9f6", "#a1abf3", "#b39ef7",
                                    "#bf8ff3")) +
  geom_vline(xintercept = 0:13 + 0.5, colour = "white") +
  geom_text(data = data.frame(x = 0:14), aes(y = 1.5, label = x), 
            color = "white", size = 6) +
  geom_text(data = data.frame(x = c(1, 7, 13), 
                              lab = c("acid", "neutral", "alkali")),
            aes(y = 0.8, label = lab), size = 8, color = "black") +
  ylim(c(-1, 4)) +
  annotate(geom = "text", x = 7, y = 2.5, label = "The pH Scale", size = 10) +
  theme_void() +
  theme(legend.position = "none")

https://stackoverflow.com/questions/73006007/