내 df는 다음과 같습니다.
df <- data.frame(date = c('2016-01-01', '2017-01-01', '2018-01-01', '2019-01-01'),
"alo" = c(10, 11, 12.5, 9),
"bor" = c(18, 20, 23, 19),
"car" = c(100, 125, 110, 102)) %>%
gather(-date, key = "key", value = "value")
alo 및 bor 열을 동일한 플롯에 두 개의 막대 그래프로 플로팅하여 df를 수집합니다. 그러나 동일한 그래프의 막대 그래프 대신 자동차 열을 선 그래프로 원합니다.
현재 내 플로팅 코드는 다음과 같습니다.
ggplot(df, aes(date, value, fill = key)) +
geom_bar(stat = 'identity', position = "dodge")
막대 대신 세 번째 열에 선 그래프를 추가하는 방법에 대한 조언을 부탁드립니다. 감사합니다!
단지 gather
당신이 당신의 막대 그래프에서 원하는 열 :
df <- data.frame(date = c('2016-01-01', '2017-01-01', '2018-01-01', '2019-01-01'),
"alo" = c(10, 11, 12.5, 9),
"bor" = c(18, 20, 23, 19),
"car" = c(100, 125, 110, 102)) %>%
gather(alo, bor, key = "key", value = "value")
ggplot(df, aes(date)) +
geom_col(aes(y = value, fill = key), position = "dodge") +
geom_line(aes(y = car, group = 1))
car
범례에 레이블을 추가 하려면 몇 가지 트릭을 수행하십시오.
ggplot(df, aes(date)) +
geom_col(aes(y = value, fill = key), position = "dodge") +
geom_line(aes(y = car, group = 1, col = 'car')) +
scale_color_manual(values = 'black') +
labs(color = NULL, fill = NULL)
이 기사는 인터넷에서 수집됩니다. 재 인쇄 할 때 출처를 알려주십시오.
침해가 발생한 경우 연락 주시기 바랍니다[email protected] 삭제
몇 마디 만하겠습니다