5

Допустим у меня есть данные

data=data.frame(s=c(10,13,17,8),
                pr=c("a","b","a","b"),
                m=c(rep(as.Date('01.01.2015','%d.%m.%Y'),2), rep(as.Date('01.02.2015','%d.%m.%Y'),2)),
                pr2=c("c","d","d","c"))

И я пытаюсь создать функцию которая рисует ggplot в зависимости от col1 - колонка по которой нужно делать fill.

plot_function=function(col1){...}

Функция должна возвращать ggplot

ggplot(data = data, aes(x = as.factor(m), y = s/2,fill=col1 ,ymax = max(s/2)*1.1)) + 
  geom_bar(position = "dodge", stat="identity") + 
  geom_text(aes(y=s/4,label=paste(round(s/2,3),"%")),position = position_dodge(.9)) + 
  scale_x_discrete(labels = function(x) format(as.Date(x), "%m/%y")) + 
  xlab("m")

где fill переменная внутри функции.

Пробовал сделать нечто подобное используя aes_string() вместо aes() но не знаю как совместить операции над переменными например s/2 и aes_string().

Так же смотрел lazyeval , который я использовал в подобных ситуациях когда делал функции из dplyr, но не смог понять как его тут применить.

в dplyr я делал вот так

group=function(data,...){

    dat1=group_by_(data,.dots = lazyeval::lazy_dots(...))
    return(dat1)
  }

Заранее спасибо за помощь.

2
  • 1
    Вынесите все преобразования за пределы ggplot, а внутри ggplot уже aes_string. 13 окт 2015 в 12:02
  • @ArtemKlevtsov Спасибо , я уже думал об этом других вариантов нет?
    – Batanichek
    13 окт 2015 в 12:03

1 ответ 1

4

На основании комментария @ArtemKlevtsov и свои догадок на этот счет в итоге сделал вот так

gr_plot=function(data_12,nm){

  i=which(colnames(data_12)==nm) 

  data_12$var=data_12$s/2
  data_12$m=as.factor(data_12$m)
  j=which(colnames(data_12)=="m")
  k=which(colnames(data_12)=="var")

  return(  ggplot(data = data_12, aes_string(x = names(data_12)[j], y =  names(data_12)[k],fill=names(data_12)[i]))+
    geom_bar(position = "dodge",stat="identity")+
    geom_text(aes(y=s/4,label=paste(round(s/2,3),"%")),position = position_dodge(.9)) + 
    scale_x_discrete(labels = function(x) format(as.Date(x), "%m/%y")) + 
    xlab("m")

  )
}

соответственно достаточно просто нарисовать в различных разрезах

gr_plot(data,"pr")

введите сюда описание изображения

gr_plot(data,"pr2")

введите сюда описание изображения

Если у кого то есть идеи как сделать нечто подобное через lazyeval было бы интересно увидеть.

Ваш ответ

Нажимая на кнопку «Отправить ответ», вы соглашаетесь с нашими пользовательским соглашением, политикой конфиденциальности и политикой о куки

Всё ещё ищете ответ? Посмотрите другие вопросы с метками или задайте свой вопрос.