在 r 中繪制不同的列

Question

數據 = 110 列（x1：x100）（數字）

我正在嘗試使用以下代碼繪制所有列，

      x2=melt(x1)
      ggplot(x2,aes(x = value)) + 
      facet_wrap(~variable,scales = "free_x") + 
      geom_histogram(aes=(density))
      +title(sub = s, line = 5.5) 
      s<-summary(x1)

我還想將匯總數據附加到圖中的每一列以進行一些分析。 有沒有替代方案？

謝謝。

Answer 1

據我所知，您不能為 facet_wrap 的子圖添加字幕。 您可以更改標題以適應您想要的內容。 這是一個包含 min、max、mean 和中值的示例：

data = data.frame(x1=rnorm(100),
                  x2=rnorm(100),
                  x3=rnorm(100),
                  x4=rnorm(100),
                  x5=rnorm(100),
                  x6=rnorm(100))


library(dplyr)
library(tidyr)
library(ggplot2)

x <- data %>% 
  gather(variable,value) %>%
  group_by(variable) %>%
  mutate(mean=mean(value),
            median=median(value),
            min=min(value),
            max=max(value),
            lab=paste(first(variable),"\nMin:",round(min,2),"Mean:",round(mean,2),"Median:",round(median,2),"Max:",round(max,2)))

ggplot(x,aes(x = value)) + 
  facet_wrap(~lab,scales = "free_x") + 
  geom_histogram(aes=(density)) +
  geom_vline(aes(x=mean))