使用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)

除了评论中所说的，我还根据您的图片设置了形状24和25（它们具有fill和color的美感）。