x 軸上多個變量的散點圖

Question

我想為不同列中定義的多個變量創建一個散點圖。 樣本輸入：

df=structure(list(section = structure(1:6, .Label = c("a", "b", 
"c", "d", "e", "f"), class = "factor"), level = c(0L, 1L, 2L, 
1L, 2L, 0L), math.av = c(83L, 67L, 76L, 56L, 72L, 76L), science.av = c(75L, 
76L, 82L, 72L, 82L, 68L), language.av = c(80L, 75L, 80L, 73L, 
85L, 70L)), class = "data.frame", row.names = c(NA, -6L))

我希望為主題的 3 個不同列中的每一列划分 x 軸，而 y 軸代表它們的不同值。

我必須將它們與另一列的顏色分組作為指標，在這種情況下，根據級別

Answer 1

這是dplyr和ggplot2一種方法。

首先，我們需要將數據透視為長而不是寬。

library(dplyr)
library(tidyr)
long_df <- df %>% pivot_longer(-c(section,level))

然后我們可以繪制點圖。

library(ggplot2)
ggplot(long_df, aes(x=as.factor(name),y=value,fill=as.factor(level))) +
  geom_dotplot(binaxis='y') +
  labs(x="Subject") +
  guides(fill = guide_legend(title = "Level"))

數據

df <- structure(list(section = structure(1:6, .Label = c("a", "b", 
"c", "d", "e", "f"), class = "factor"), level = c(0L, 1L, 2L, 
1L, 2L, 0L), math.av = c(83L, 67L, 76L, 56L, 72L, 76L), science.av = c(75L, 
76L, 82L, 72L, 82L, 68L), language.av = c(80L, 75L, 80L, 73L, 
85L, 70L)), class = "data.frame", row.names = c(NA, -6L))