R語言ggplot2畫帶有置信區(qū)間的折線圖和分組求均值遇到問題的示例分析

今天遇到一個分組求均值的問題，愣是看不出問題出在哪了，大家?guī)臀铱纯次哪┑拇a是哪里出問題了，或者留言說一下自己分組求均值在R語言里是如何實現的。

折線圖通常用來表現數據的變化趨勢，比如做果樹研究的通常會研究果實在整個發(fā)育過程中一些生理生化指標的變化趨勢，這個時候就可以選擇折線圖的方式來展現數據。

library(tidyverse)
huron <- data.frame(year = 1875:1972, 
                    value = LakeHuron,
                    ci_lower = rnorm(length(LakeHuron),0,1),
                    ci_upper = rnorm(length(LakeHuron),0,1))

library(ggplot2)
ggplot(huron,aes(year, value)) + 
  geom_ribbon(aes(ymin = value - ci_lower,
                  ymax = value + ci_upper),
              fill = "steelblue2") + 
  geom_line(color = "firebrick",
            size = 1)+
  theme_minimal()

 

會遇到提示Don't know how to automatically pick scale for object of type ts. Defaulting to continuous.暫時還不知道是啥意思

今天的筆記主要的記錄內容是geom_ribbon()函數，主要作用是可以給折線周圍添加一定的陰影區(qū)間

今天還遇到一個問題是 R語言里分組計算均值方差等，之前自己都是用dplyr這個包中的group_by()函數加summarise()函數

比如如下的代碼

df<-data.frame(first=c("A","A","B","B"),
               second=c(1,2,3,4))
library(dplyr)
df%>%
  group_by(first)%>%
  summarise(y=mean(second))

我記得正常應該返回的數據是兩行兩列

first y
A 1.5
B 3.5

但是今天的返回結果一直只有一個數字呢？

> df%>%
+   group_by(first)%>%
+   summarise(y=mean(second))
    y
1 2.5