ggplot2 1탄, 그간 변모한 R ggplot2를 소개합니다.

[sl100104]

사실 ggplot2는 내가 박사논문을 쓸 당시인 2016년 이전까지는 가장 전문적이고 고급스런 그래프 제작도구였습니다. 그 이후 Julia나 Python에서 이 패키지를 차용을 해서 서로 경쟁적으로 신기한 새로운 그래프들을 민들어 냈는데, Jupyter 덕분에 Python 이 리드를 하는 것이 사실입니다. 물론 R도 Jupyter에서 사용이 가능하지만 차라라 R-Studio가 더 나은 것 같습니다.

그러나 최근 bubble과 관련된 글을 쓰다가 이 분야에 정통한 R을 찾았는데, 과연 ggplot2는 많은 성장을 했고, R의 Plotly, autoplot의 기반이 되고 있습니다.      

먼저 다음의 링크들은 너무나 많은 정보중에서 핵심만 골라놓은 것이며, ggplot의 자랑스런 면모를 볼 수 있습니다. 

http://www.cookbook-r.com/Graphs/Colors_(ggplot2)/
https://r-graph-gallery.com/ggplot2-package.html
https://r-graph-gallery.com/colors.html
https://ggplot2.tidyverse.org/reference/ggtheme.html
https://r-charts.com/ggplot2/themes/
https://ggplot2.tidyverse.org/reference/theme.html
https://r-charts.com/ggplot2/titles/
 

Title, subtitle, caption and tag in ggplot2

그리고 다음은 제가 아고라스에 기고한 글을 준비면서 이용한 싸이트 들입니다.

다음의 코드로 가능합니다. 물론

install.packages("ggplot2") 를 먼저 하셔야 합니다.

library(ggplot2)

df <- data.frame(
  date = c('1980-09-01', '1981-12-01', '1982-03-01', '1983-06-01', '1984-08-01'),
  number = c(4,8,7,9,2)
)
df$date <- as.Date(df$date)

rects <- data.frame(
  name = c('A', 'B', 'C'),
  start = c('1980-09-01', '1981-05-15', '1983-02-22'),
  end = c('1981-05-15', '1983-02-22', '1984-05-23')
)
rects$start <- as.Date(rects$start)
rects$end <- as.Date(rects$end)

p <- ggplot(data=df, aes(x=date, y=number)) +
  geom_line() +
  geom_point() +
  scale_x_date(date_breaks = "6 month", date_labels = "%Y")+
  geom_rect(data = rects, inherit.aes=FALSE, mapping=aes(xmin = start, 
  xmax = end,ymin = -Inf, ymax = Inf, fill = name), alpha = 0.4)
p