將每個分組變量在 r 中的數據幀的所有列繪制到一個圖上

Question

D 親愛的，鑒於以下數據框，我正在嘗試繪制每列的值並按類型（有三組，alpha，beta，gamma）整體標記（彩色）。

換句話說，x 軸應顯示 9 個點 (x100,x110.....,x180)，y 軸范圍應為 0 到 2（每列的值最大為 0 到 2）。

生成的三行中的每一行都應突出顯示三個分類變量中的每一個。

關於數據幀格式的道歉，我還沒有想出如何漂亮地輸出它。

structure(list(Group.1 = c("alpha", "beta", "gamma"), x100 = 
c(1.31729175522923, 
0.985278656706214, 0.156200287397951), x110 = c(1.54471416538581, 
0.915659603197128, 0.733224726747721), x120 = c(1.27778739808127, 
0.813037838321179, 0.779596480540931), x130 = c(1.25000598328188, 
0.488610395696014, 0.806707685347646), x140 = c(1.82296009687707, 
1.16132276877761, 1.31973652262241), x150 = c(0.929914232343435, 
1.41477890312672, 1.41652730805799), x160 = c(1.19612871715799, 
0.801679770927876, 0.39746836386621), x170 = c(1.88860023999587, 
1.03295020200312, 0.729622524231672), x180 = c(0.926427994389087, 
1.20304362708703, 1.57529754098505)), row.names = c(NA, -3L), 
class = "data.frame")

我正在嘗試使用 ggplot（任何其他繪圖方法都可以），但是在閱讀 ggplot 函數的要求時，我很難理解是否應該創建一個值向量來用作 aes 參數 y？

提前致謝，

F

Answer 1

要獲得繪圖所需的布局，您需要使用 pivot_longer 將 data.frame 轉換為長格式。 從那里你可以正常使用 ggplot 。 要拆開條形，請使用 position = dodge。

library(tidyverse)

data <- structure(list(Group.1 = c("alpha", "beta", "gamma"), 
               x100 = c(1.31729175522923, 0.985278656706214, 0.156200287397951), 
               x110 = c(1.54471416538581, 0.915659603197128, 0.733224726747721), 
               x120 = c(1.27778739808127, 0.813037838321179, 0.779596480540931), 
               x130 = c(1.25000598328188, 0.488610395696014, 0.806707685347646), 
               x140 = c(1.82296009687707, 1.16132276877761, 1.31973652262241), 
               x150 = c(0.929914232343435, 1.41477890312672, 1.41652730805799), 
               x160 = c(1.19612871715799, 0.801679770927876, 0.39746836386621), 
               x170 = c(1.88860023999587, 1.03295020200312, 0.729622524231672), 
               x180 = c(0.926427994389087, 1.20304362708703, 1.57529754098505)), 
          row.names = c(NA, -3L), 
          class = "data.frame")
data %>% 
  pivot_longer(cols = contains("x"),
               names_to = "data_points",
               values_to = "vals") %>% 
  ggplot(aes(x = data_points, y = vals, fill = Group.1)) +
  geom_col(position = "dodge")

^{由reprex 包(v0.3.0) 於 2020 年 11 月 11 日創建}

Answer 2

base-R 解決方案是在繪圖之前使用reshape將數據重新整形為長格式。

dflong <- reshape(df, direction = "long", idvar = "Group.1", timevar = "xval", 
                  varying = 2:10, v.names = "yval", times = colnames(df)[2:10])

library(ggplot2)
ggplot(data = dflong, aes(x = xval, y = yval, color = Group.1)) +
  geom_line(aes(group = Group.1))