Question

我每天都会有六个月（2016年8月 - 2017年1月）的重量CSV文件。我想绘制每个月的箱线图，基本上绘制每个月数据的摘要（）。我想使用ggplot2，因为它看起来更漂亮。我已经四处寻找解决方案并提出了许多但似乎没有解决我想要的东西。

数据的头部和摘要：

> wts <- read.csv('weights.csv', header=T, sep=',')
> head(wts)
  August.2016 September.2016 October.2016 November.2016 December.2016 January.2016
1       254.2          250.0        248.2         245.8         245.6        244.4
2       252.6          249.2        248.6         246.4         246.0        245.0
3       251.8          250.6        249.2         248.0         246.4        244.3
4       253.2          252.4        249.8         247.5         246.0        243.6
5       252.2          250.6        248.8         247.0         246.0        242.6
6       254.0          251.0        247.8         247.6         246.0        242.0
> summary(wts)
  August.2016    September.2016   October.2016   November.2016   December.2016    January.2016  
 Min.   :249.6   Min.   :245.6   Min.   :245.4   Min.   :244.2   Min.   :243.4   Min.   :241.6  
 1st Qu.:252.2   1st Qu.:248.3   1st Qu.:246.7   1st Qu.:246.2   1st Qu.:244.8   1st Qu.:242.9  
 Median :252.8   Median :249.2   Median :247.8   Median :246.6   Median :245.6   Median :243.6  
 Mean   :252.7   Mean   :249.1   Mean   :247.6   Mean   :246.7   Mean   :245.3   Mean   :243.5  
 3rd Qu.:253.6   3rd Qu.:250.0   3rd Qu.:248.2   3rd Qu.:247.2   3rd Qu.:246.0   3rd Qu.:244.3  
 Max.   :255.2   Max.   :252.4   Max.   :249.8   Max.   :248.6   Max.   :247.0   Max.   :245.0  
                 NA's   :1                       NA's   :1                       NA's   :1

从我收集到的内容中，我需要以ggplot喜欢的方式重塑数据，但我不知道该怎么做。如果可能的话，我也会像在箱线图上突出显示平均值（用实际数字）。我可以知道怎么做吗？

由于

Answer 1

要保持相同的范例，您可以使用attributes包中的gather()将数据重新整形为长格式，并将结果插入tidyr。要添加描述均值的文字，您可以ggplot()使用stat_summary() geom并将"text"函数应用于mean变量。

value

使用ggplot2的CSV数据的Boxplot

1 个答案: