Вопрос по r, ggplot2 – ggplot2 сохраняет неиспользованные уровни barplot

59

Я хочу построить неиспользуемые уровни (то есть уровни, где счетчик равен 0) на моем гистограмме, однако неиспользуемые уровни сброшены, и я не могу понять, как их сохранить

df <- data.frame(type=c("A", "A", "A", "B", "B"), group=rep("group1", 5))
df$type <- factor(df$type, levels=c("A","B", "C"))

ggplot(df, aes(x=group, fill=type)) + geom_bar()

В приведенном выше примере я хочу видеть C с графиком 0, но он полностью отсутствует ...

Спасибо за любую помощь Ульрик

Редактировать:

Это делает то, что я хочу

df <- data.frame(type=c("A", "A", "A", "B", "B"), group=rep("group1", 5))
df1 <- data.frame(type=c("A", "A", "A", "B", "B", "A", "A", "C", "B", "B"), group=c(rep("group1", 5),rep("group2", 5)))

df$type <- factor(df$type, levels=c("A","B", "C"))
df1$type <- factor(df1$type, levels=c("A","B", "C"))
df <- data.frame(table(df))

df1 <- data.frame(table(df1))

ggplot(df, aes(x=group, y=Freq, fill=type)) + geom_bar(position="dodge")
ggplot(df1, aes(x=group, y=Freq, fill=type)) + geom_bar(position="dodge")

Угадайте, что решение состоит в том, чтобы рассчитать частоты с помощью таблицы (), а затем построить график

Ваш Ответ

4   ответа
56

Делает ли это то, что вы хотите?

ggplot(df, aes(x=type)) + geom_bar() + scale_x_discrete(drop=FALSE)

enter image description here

25

Вам нужно установить drop = FALSE для обеих шкал (fill и x) следующим образом:

library(ggplot2)
df <- data.frame(type=c("A", "A", "A", "B", "B"), group=rep("group1", 5))
df1 <- data.frame(type=c("A", "A", "A", "B", "B", "A", "A", "C", "B", "B"), group=c(rep("group1", 5),rep("group2", 5)))
df$type <- factor(df$type, levels=c("A","B", "C"))
df1$type <- factor(df1$type, levels=c("A","B", "C"))

plt <- ggplot(df, aes(x=type, fill=type)) + geom_bar(position='dodge') + scale_fill_discrete(drop=FALSE) + scale_x_discrete(drop=FALSE)
plt1 <-  ggplot(df1, aes(x=type, fill=type)) + geom_bar(position='dodge') + scale_fill_discrete(drop=FALSE) + scale_x_discrete(drop=FALSE)

Редактировать:

Я уверен, что это работает. Забыл сменить x на тип вместо группы и положение = 'aodge; apos ;! Просто вставьте и проверьте. Stat_bin имеет дело с лотками с нулевым счетом. Проверитьдокументы.

Error: User Rate Limit Exceeded
8

Сбрасывание уровней не работает. Сбрасывание уровней на первом примере

library(ggplot2)

df <- data.frame(type=c("A", "A", "A", "B", "B"), group=rep("group1", 5))
df$type <- factor(df$type, levels=c("A","B", "C"))

ggplot(df, aes(x=group, fill=type)) + geom_bar(position="dodge") + scale_x_discrete(drop=FALSE) + scale_fill_discrete(drop=FALSE)

Результаты на этом участке:

enter image description here

Решение находится во втором примере, где частоты рассчитываются вручную:

df <- data.frame(type=c("A", "A", "A", "B", "B"), group=rep("group1", 5))
df1 <- data.frame(type=c("A", "A", "A", "B", "B", "A", "A", "C", "B", "B"), group=c(rep("group1", 5),rep("group2", 5)))

df$type <- factor(df$type, levels=c("A","B", "C"))
df1$type <- factor(df1$type, levels=c("A","B", "C"))

df <- data.frame(table(df))
df1 <- data.frame(table(df1))

df$plot = "A"
df1$plot = "B"

df <- rbind(df, df1)

ggplot(df, aes(x=group, y=Freq, fill=type)) + geom_bar(position="dodge", stat="identity") + facet_wrap( ~ plot, scales="free")

Результаты в этом:

enter image description here

Последний является наиболее информативным, так как пространство занято категориями там count = 0

0

Вы также можете использовать & quot; scale_fill_color & quot; например :

plt <- ggplot(df, aes(x=type, fill=type)) + geom_bar(position='dodge') + scale_x_discrete(drop=FALSE)+
scale_fill_manual(
  values = c(
    "#ff6666",
    "#cc9900",
    "#cc9900",
    ),drop=FALSE)

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