使用 ggplot2 在 R 中按值排序条形图
Ordering bar chart by value in R using ggplot2
我在使用按值排序的 ggplot2
创建条形图时遇到问题。
我知道我可以按值排序数据框,然后绘制它。但是,ggplot2
似乎忽略了排序。
我正在使用以下代码:
df$Frequency <- factor(dft$Frequency, levels = df$Frequency[order(df$Frequency)])
df
# Plot the data
plot = ggplot(data=df, aes(x=Word , y=Frequency, label=Frequency)) +
geom_bar(stat="identity") +
geom_text(size = 5, position = position_stack(vjust = 1.04)) +
coord_flip()
plot
数据如下所示:
ID Word Frequency
1 70 a 194
2 48 b 116
3 139 c 104
4 293 d 87
5 12 d 87
我得到以下情节:
我错过了什么?
您可以使用reorder
来订购吧。您可以使用以下代码:
df <- data.frame(ID = c(70, 48, 139, 293, 12),
Word = c("a", "b", "c", "d", "e"),
Frequency = c(194, 116, 104, 87, 87))
plot = ggplot(data=df, aes(x=reorder(Word, -Frequency) , y=Frequency, label=Frequency)) +
geom_bar(stat="identity") +
geom_text(size = 5, position = position_stack(vjust = 1.04)) +
coord_flip() +
labs(x = "Word")
plot
输出:
使用reorder(Word, Frequency)
:
plot = ggplot(data=df, aes(x=reorder(Word, Frequency) , y=Frequency, label=Frequency)) +
geom_bar(stat="identity") +
geom_text(size = 5, position = position_stack(vjust = 1.04)) +
coord_flip() +
labs(x = "Word")
plot
输出:
我在使用按值排序的 ggplot2
创建条形图时遇到问题。
我知道我可以按值排序数据框,然后绘制它。但是,ggplot2
似乎忽略了排序。
我正在使用以下代码:
df$Frequency <- factor(dft$Frequency, levels = df$Frequency[order(df$Frequency)])
df
# Plot the data
plot = ggplot(data=df, aes(x=Word , y=Frequency, label=Frequency)) +
geom_bar(stat="identity") +
geom_text(size = 5, position = position_stack(vjust = 1.04)) +
coord_flip()
plot
数据如下所示:
ID Word Frequency
1 70 a 194
2 48 b 116
3 139 c 104
4 293 d 87
5 12 d 87
我得到以下情节:
我错过了什么?
您可以使用reorder
来订购吧。您可以使用以下代码:
df <- data.frame(ID = c(70, 48, 139, 293, 12),
Word = c("a", "b", "c", "d", "e"),
Frequency = c(194, 116, 104, 87, 87))
plot = ggplot(data=df, aes(x=reorder(Word, -Frequency) , y=Frequency, label=Frequency)) +
geom_bar(stat="identity") +
geom_text(size = 5, position = position_stack(vjust = 1.04)) +
coord_flip() +
labs(x = "Word")
plot
输出:
使用reorder(Word, Frequency)
:
plot = ggplot(data=df, aes(x=reorder(Word, Frequency) , y=Frequency, label=Frequency)) +
geom_bar(stat="identity") +
geom_text(size = 5, position = position_stack(vjust = 1.04)) +
coord_flip() +
labs(x = "Word")
plot
输出: