https://wiki.taichimd.us/index.php?action=history&feed=atom&title=File%3AGeom_bar_reorder.png
File:Geom bar reorder.png - Revision history
2026-04-05T15:52:50Z
Revision history for this page on the wiki
MediaWiki 1.43.6
https://wiki.taichimd.us/index.php?title=File:Geom_bar_reorder.png&diff=39993&oldid=prev
Brb: <syntaxhighlight lang='r'>
library(ggplot2)
library(forcats)
data <- data.frame(
category = c("A", "B", "C", "D"),
value = c(3, 5, 2, 8)
)
data$category <- fct_reorder(data$category, data$value)
levels(data$category)
# [1] "C" "A" "B" "D"
ggplot(data, aes(x = category, y = value, fill = category)) +
geom_bar(stat = "identity") +
coord_flip() +
labs(x = "Category", y = "Value") +
theme_minimal()
</syntaxhighlight>
2024-08-13T19:54:50Z
<p><syntaxhighlight lang='r'> library(ggplot2) library(forcats) data <- data.frame( category = c("A", "B", "C", "D"), value = c(3, 5, 2, 8) ) data$category <- fct_reorder(data$category, data$value) levels(data$category) # [1] "C" "A" "B" "D" ggplot(data, aes(x = category, y = value, fill = category)) + geom_bar(stat = "identity") + coord_flip() + labs(x = "Category", y = "Value") + theme_minimal() </syntaxhighlight></p>
<p><b>New page</b></p><div>== Summary ==<br />
<syntaxhighlight lang='r'><br />
library(ggplot2)<br />
library(forcats)<br />
<br />
data <- data.frame(<br />
category = c("A", "B", "C", "D"),<br />
value = c(3, 5, 2, 8)<br />
)<br />
<br />
data$category <- fct_reorder(data$category, data$value)<br />
<br />
levels(data$category)<br />
# [1] "C" "A" "B" "D"<br />
<br />
ggplot(data, aes(x = category, y = value, fill = category)) +<br />
geom_bar(stat = "identity") +<br />
coord_flip() +<br />
labs(x = "Category", y = "Value") +<br />
theme_minimal()<br />
</syntaxhighlight></div>
Brb