使用 R 绘制到 1 个轴值

Question

不知道如何表达我的问题，所以这就是我想要一个快速绘图的样子，忽略可怕的轴线和边界：

这就是我的数据的样子，非常基本：

我将符号分配给我想要绿色或红色符号的字段：

status_agged$status[status_agged$current_avg > status_agged$abc_avg] <- 2
status_agged$status[status_agged$current_avg < status_agged$abc_avg] <- 6

我现在迷失了从哪里开始我的绘图功能以在 1 行上绘制所有内容。我应该能够自己解决小问题，比如网格线和颜色。

（而且我知道这不是 R 的最佳用例，但我的其他工具没有此功能）

dput 的输出（status_agged）：

structure(list(category = structure(1:5, .Label = c("Activities Transition", 
"Arrival Logistics and Greetings", "Organization of Activity", 
"Schedule and Offering", "Space Adequacy"), class = "factor"), 
    CurrentAvg = c(4, 2.75, 3.86666655540466, 3.79999995231628, 
    3), ABCAvg= c(3.819841, 3.469858, 3.725926, 3.358, 3.577333
    ), PLGAvg = c(3.69721, 3.439394, 3.638, 3.306087, 3.454638
    ), status = c(2, 6, 2, 2, 6)), row.names = c(NA, -5L), class = "data.frame")

Answer 1

我们可以做

status_agged$status <- as.factor(status_agged$status)
ggplot(status_agged, aes(x = "", y = category)) + 
  geom_point(aes(fill = status, color = status, shape = status), size = 10, show.legend = FALSE) +
  scale_shape_manual(values = c("6" = 25, "2" = 24)) + theme_bw() + 
  scale_fill_manual(values = c("6" = "red", "2" = "green")) +
  scale_color_manual(values = c("6" = "red", "2" = "green")) + xlab(NULL)

除了cmets中说的，我根据你的图片设置了形状24和25（它们有fill和color美学）。