Это частично связано с моим вчера вопросом.

Итак, вот данные и график, созданные в ggplot2.

df = data.frame(date=c(rep(2008:2013, by=1)),
                value=c(303,407,538,696,881,1094))


ggplot(df, aes(date, value, width=0.64)) + 
        geom_bar(stat = "identity", fill="#336699", colour="black") +
        ylim(c(0,1400)) + opts(title="U.S. Smartphone Users") +
        opts(axis.text.y=theme_text(family="sans", face="bold")) +
        opts(axis.text.x=theme_text(family="sans", face="bold")) +
        opts(plot.title = theme_text(size=14, face="bold")) +
        xlab("Year") + ylab("Users (in millions)") +        
        opts(axis.title.x=theme_text(family="sans")) +
        opts(axis.title.y=theme_text(family="sans", angle=90)) +
        geom_segment(aes(x=2007.6, xend=2013, y=550, yend=1350), arrow=arrow(length=unit(0.4,"cm")))

Можно ли построить волнистую линию тренда на следующем графике с помощью ggplot2

Я создал график в R, а затем обработал его в Adobe Photoshop, и мне интересно, можно ли было построить эту волнистую линию тренда прямо в R.

Если это невозможно сделать в ggplot2, есть ли какие-то конкретные пакеты R, которые можно было бы решить для этой задачи?

Я не спрашиваю о воспроизведении графика. Это не проблема. Кажется, проблема заключается только в построении линии тренда.

enter image description here

5
ATMathew 30 Авг 2011 в 19:16

2 ответа

Лучший ответ

Согласно всем комментариям: волнистая линия сомнительна с научной точки зрения, поскольку не основана на статистической модели данных. (И это, кажется, показывает, что количество пользователей смартфонов выравнивается, когда данные не показывают этого.) Так что лучший совет - «не делай этого».

Но поскольку вы, кажется, действительно увлечены этой идеей, да, это возможно.

Вы можете добавить любую строку с помощью geom_line. Чтобы воспроизвести глупую линию в своей инфографике, вы можете нарисовать прямую линию плюс синусоидальную кривую, чтобы она пошевелилась. Предполагая, что ваш участок был назван p

p + geom_line(
  aes(date, value), 
  data = data.frame(
    date = seq(2008, 2013, length.out = n),
    value = seq(600, 1300, length.out = n) + 100 * sin(seq(0, 4 * pi, length.out = n))  
  ), 
  arrow = arrow(length = unit(0.4, "cm"))
)

Лучше использовать кривую, сглаженную по лёссу.

p + geom_smooth(method = "loess", se = FALSE)  #maybe also span = 0.5, for extra wigglyness.
8
Richie Cotton 30 Авг 2011 в 17:29

Ответ на ваш вопрос однозначно: не делайте этого с R. R не оптимизирован для этого. Вы будете быстрее и ближе к тому, что хотите, если воспользуетесь какой-нибудь программой векторной графики. Используйте Illustrator, Inkscape (бесплатно) или любой другой графический инструмент, который вам нравится. Возможно, вы также захотите создать график в R и изменить его позже в одной из этих программ.

Я понимаю комментарии, а также согласен с тем, что этот график не проходит некоторые тесты. Не только академические тесты, но и тест на внешний вид, не застрявший в девяностых. Это упоминание Эдварда Тафте было также из эстетических соображений. Однако я думаю, что это законный вопрос, который не заслуживает отрицательного голосования только потому, что график выглядит некрасиво. Иногда ученым также необходимо опубликовать свои материалы за пределами академических журналов, и графика в конечном итоге редактируется редакторами для масс. Так что, зная заранее - лучше не пытаться делать такие вещи с R, может быть примечательно.

4
Matt Bannert 30 Авг 2011 в 19:20