나는 시간 과정 데이터 (시간이 지남에 따라 화면의 다른 객체에 고정 비율)를 그리기 위해 ggplot
을 사용하고 있는데 리본을 사용하여 SE를 표시하려고하지만 리본 자체에는 위쪽 가장자리와 아래쪽 가장자리는 그래프 읽기를 더 어렵게 만듭니다. 나는 그 가장자리 선을 제거하는 방법을 알아낼 수 없었다. 여기 내 플롯 코드입니다 :ggplot : 리본 모서리에서 선 제거
ggplot(gaze, aes(Time, Fix, color=Object, fill=Object)) +
stat_summary(fun.y="mean", geom="line", size=2) +
stat_summary(fun.data="mean_se", geom="ribbon", alpha=.3)
어떤 제안이 있습니까?
다음은 최소한의 작동 예제입니다. 나는 내 데이터를 압축했습니다
Time Object y lower upper
1 1000 C 0.12453389 0.04510504 0.2039627
2 1000 T 0.58826856 0.37615078 0.8003864
3 1000 U 0.09437160 0.03278069 0.1559625
4 1100 C 0.12140127 0.03943988 0.2033627
5 1100 T 0.64560823 0.44898727 0.8422292
6 1100 U 0.06725172 0.01584248 0.1186610
d <- structure(list(Time = c(1000L, 1000L, 1000L, 1100L, 1100L, 1100L), Object = structure(c(1L, 2L, 3L, 1L, 2L, 3L), .Label = c("C",
"T", "U"), class = "factor"), y = c(0.12453389, 0.58826856, 0.0943716,
0.12140127, 0.64560823, 0.06725172), lower = c(0.04510504, 0.37615078,
0.03278069, 0.03943988, 0.44898727, 0.01584248), upper = c(0.2039627,
0.8003864, 0.1559625, 0.2033627, 0.8422292, 0.118661)), .Names = c("Time",
"Object", "y", "lower", "upper"), class = "data.frame", row.names = c("1",
"2", "3", "4", "5", "6"))
여기에 새로운 플롯 코드입니다 : 당신이 가서 여기
ggplot(d, aes(Time, y, color=Object, fill=Object)) +
geom_line(size=2) +
geom_ribbon(aes(ymin=lower, ymax=upper), alpha=.3, colour=NA)
당신이 최소한의 작업 예제를 만들겠습니까. 즉, 그래프 명령을 실행하기 위해 간단한 데이터를 추가해야합니다. – csgillespie
감사합니다. 도움이 된 것 같습니다. –