Вопросы Теги

уменьшить пробел между двумя барами в barchart, используя ggplot (r) [duplicate]

Меня увлекает то, как простой grep делает это с помощью 'rl' 

grep -rl 'pattern_to_find' /path/where/to/find

-r to find recursively file / directory inside directories..
-l to list files matching the 'pattern'

Используйте '-r' без 'l', чтобы увидеть имена файлов, за которыми следует текст, в котором шаблон 

grep -r 'pattern_to_find' /path/where/to/find

Работает просто отлично ..

Надеюсь, что это поможет!

10
задан nOOb 17 September 2014 в 12:22
поделиться

2 ответа

Просто отрегулируйте ширину: 

ggplot(df, aes(x=timepoint, y=mean, fill=group)) +
  geom_bar(position=position_dodge(0.9), colour="black", stat="identity", width=0.9, , binwidth=0) +
  geom_errorbar(position=position_dodge(0.9), width=0.85, aes(ymin=mean, ymax=mean+sem)) +
  theme_bw()

enter image description here [/g0]

7
ответ дан Roland 23 August 2018 в 01:04
поделиться
  • 1
    Хорошо, поэтому используйте release (), как было предложено @Paulo, чтобы получить базовый уровень до 12w. Вы знаете, как удалить & quot; ymin & quot; из аргумента панели ошибок? I "взломан" это, устанавливая его равным, что он имеет в виду, но его уродливым. – nOOb 17 September 2014 в 13:21
  • 2
    Я ответил на ваш вопрос. Пожалуйста, не добавляйте дополнительные вопросы в комментарии. – Roland 17 September 2014 в 13:47
  • 3
    @nOOb эта ссылка может помочь – J.Con 3 May 2018 в 05:09

Что-то вроде этого? 

df <- structure(list(group = structure(c(2L, 1L, 4L, 3L), .Label = c("a1.c.ffa.mean Control", 
"a1.d.ffa.mean Dysglyc", "b1.c.ffa.mean Control", "b1.d.ffa.mean Dysglyc"
), class = "factor"), timepoint = structure(c(1L, 1L, NA, NA), .Label = c("Baseline", 
"12W"), class = "factor"), mean = c(1.913509, 2.181959, 2.742249, 
1.50846), sem = c(0.10663114, 0.08360294, 0.07890374, 0.08348542
), p.value = c(0.597738161, 1, 0.007885464, 1), p.value.t = c(0.04408, 
1, 0.2455049, 1)), .Names = c("group", "timepoint", "mean", "sem", 
"p.value", "p.value.t"), row.names = c(NA, -4L), class = "data.frame")

уровни факторов переупорядочения с 

df$timepoint <- factor(df$timepoint, 
                       levels= c('Baseline', '12W'))

нарисуйте его 

ggplot(df, aes(x=factor(timepoint), y=mean, fill=group)) +
  geom_bar(position=position_dodge(.3), colour="black",
           stat="identity", width=0.3, , binwidth=0) +
  geom_errorbar(position=position_dodge(.3), width=.25,
                aes(ymin=mean, ymax=mean+sem)) +
  scale_fill_manual(values=c("#FFFFFF", "#000000","#FFFFFF", "#000000"),
                    guide=FALSE) +
  theme_bw() +
  labs(list(x="", y='skeletal muscle FFA g/100g')) +
  # xlim("Baseline", "12w") +
  scale_x_discrete(expand = c(0,0)) + 
  scale_y_continuous(expand = c(0,0) ) + 
  theme(panel.border = element_blank(), panel.grid.major = element_blank(), 
        panel.grid.minor = element_blank(),
        axis.line = element_line(colour = "black"))

geom_bar [/g0]

Что довольно близко к вашему примеру ...

2
ответ дан Paulo E. Cardoso 23 August 2018 в 01:04
поделиться
  • 1
    Исходный уровень должен быть до 12 часов. И все же существует огромный разрыв между базовыми и 12-ватными барами! Я хочу, чтобы базовый уровень и 12w были очень близки друг к другу. Благодарю вас за усилия! – nOOb 17 September 2014 в 11:54
  • 2
    Пожалуйста, просмотрите обновленную картинку в оригинальном посте! Еще раз спасибо. – nOOb 17 September 2014 в 12:22
Другие вопросы по тегам:

Похожие вопросы: