다음과 같은 데이터가 있다고 가정 해 보겠습니다.
a <- tibble(id=c(1,1.1,1.2,1.7,2,2.1,2.6,4,4.6,4.68),
x=c(0.3,0.5,0.2,0.7,0.1,0.5,0.43,0.6,0.3,0.65),
y=c(0.2,0.1,0.22,0.1,0.5,0.2,0.3,0.2,0.14,0.3))
이것은 단지 샘플 일 뿐이고, 제 실제 데이터는 이것보다 훨씬 더 많습니다. 그리고 x + y + ... = 1. 두 개의 선을 그리고 싶습니다. 한 줄은 x, 한 줄은 x + y입니다.
ggplot(a) +
geom_line(aes(x=id,y=x),color='red') +
geom_line(aes(x=id,y=x+y),color='blue')
그러나 내가 정말로 원하는 것은 다음과 같은 레이더 차트와 같은 것입니다.
반지름이 1 인 원이 있음을 알 수 있습니다. x 및 x + y, (내 데이터에서 더 많을 수도 있음) 각각 빨간색과 파란색 원입니다. 따라서 x + y는 x보다 커야하지만 x + y + ... = 1이기 때문에 항상 원 안에 있어야합니다. 내 데이터에는 많은 ID가 있으므로 차원이 거의없는 기존 레이더가 아닙니다.
당신은 레이더 차트로 만들 수 있습니다 coord_polar()
- 예를
library(tidyverse)
ggplot(a) +
geom_smooth(aes(x=id,y=x),color='red', se = FALSE) +
geom_smooth(aes(x=id,y=x+y),color='blue', se = FALSE) +
geom_line(aes(x = id, y = 1)) +
coord_polar()
내가 geom_smooth
의도 한 결과에 더 가까워지는 데 사용 했습니다.
이 기사는 인터넷에서 수집됩니다. 재 인쇄 할 때 출처를 알려주십시오.
침해가 발생한 경우 연락 주시기 바랍니다[email protected] 삭제
몇 마디 만하겠습니다