표준 편차를 모양으로 표시하는 방법은 무엇입니까?

Question

I는 다음 데이터 프레임 df 가지고

structure(list(queue = structure(c(1L, 1L, 1L, 1L, 1L, 1L), .Label = c("XXX1", 
"XXX2", "XXX3", "XXX4", 
"XXX5", "XXX6", "XXX7", 
"XXX8", "XXX9", "XXX10"), class = "factor"), 
    hour = c(8, 9, 10, 11, 12, 13), num_at = c(5, 10.6923076923077, 
    8.35294117647059, 7.74285714285714, 10.0769230769231, 9.34615384615385 
    ), num_wt = c(1.8, 8.28571428571429, 11.3478260869565, 11.2121212121212, 
    17.5185185185185, 6.68421052631579),num_wt_se = c(0.8, 0.25, 1.3, 1.4, 
    1.5, 2.6),num_at_se = c(1.2, 1.2, 1.3, 1.2, 
    1.1, 2.3)), .Names = c("queue", 
"hour", "num_at", "num_wt","num_at_se","num_wt_se"), row.names = c(NA, 6L), class = "data.frame") 

I는 두 줄 곡선 도표를 작성을, 1은 제 2 대응한다 num_at 값, num_wt에 대응한다.

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

p <- df[df$queue == "XXX1",] %>% 
      gather(key, num, num_wt, num_at) %>% 
      ggplot(aes(x=hour, y=num, colour=key)) + 
      geom_smooth(span = 0.3) + 
      scale_color_manual(labels = c("Line 1", "Line 2"), values = c("#F8AA5A", "#BD63BD")) + 
      labs(title = "Title", 
       x = "Hour", 
       y = "Value", 
       color = "") 
p 

는 지금은 num_wt 및 대응 num_wt_se 및 num_at_se에 저장되어 num_at에 대한 표준 편차를 보여주고 싶어요. 표준 편차를 선이 아닌 쉐이프로 묘사하고 싶습니다. 내가 어떻게 해? 나는 그러나 내 경우에는 아무것도 표시되지 않습니다, 가능한 솔루션에 대한 인터넷 검색이 하나를 발견 : 데이터 집합을 가정

stat_smooth(method="loess", span=0.1, se=TRUE, aes(fill=key), alpha=0.3) +

Answer 1

가 D라고는 당신이하지 gather()을, 어떻게이

ggplot(d, aes(x=hour, y=num_at)) + 
    geom_ribbon(aes(ymax = num_at + num_at_se, 
        ymin = num_at - num_at_se), 
       fill = grey(0.5), alpha = 0.5) + 
    geom_line() 

에 대한 당신이 gather() 단계를 유지하려는 경우

다음`) (이

dd <- d %>% 
    gather(variable, value, -(1:2)) %>% 
    separate(variable, c("type", "measurement"), "t") %>% 
    spread(measurement, value) 
colnames(dd)[4:5] <- c("value", "se") 

ggplot(dd, aes(x=hour, y=value)) + 
    geom_ribbon(aes(ymax = value + se, 
        ymin = value - se, 
        fill = type), 
       alpha = 0.5) + 
    geom_line(aes(colour = type))