📜  在 R 中的 ggplot2 图中重新排序方面

📅  最后修改于: 2022-05-13 01:54:25.271000             🧑  作者: Mango

在 R 中的 ggplot2 图中重新排序方面

在本文中,我们将研究一种在 R 编程语言中重新排序 ggplot2 图中的方面的方法。

为了根据给定的 ggplot2 图重新排序面,用户需要在水平函数和传入其中的所需参数的帮助下相应地重新排序我们分组变量的水平,进一步它将导致相应地重新排序面中的R 编程语言。

Level函数提供对变量的 levels 属性的访问。第一种形式返回其参数的级别值,第二种形式设置属性。

让我们先看看最初的情节。以便可以明显地观察到重新排序后的差异。

示例:初始图

R
library(ggplot2)
  
gfg < - data.frame(x=c(4, 9, 5, 6, 10, 2, 3, 7, 8, 1),
                   y=c(9, 4, 3, 1, 5, 2, 8, 10, 7, 6),
                   group=c('A', 'B', 'C', 'D', 'E'))
  
gfg_plot < - ggplot(gfg, aes(x, y)) +
geom_point() + facet_grid(.~group)
  
gfg_plot


R
library(ggplot2)
  
gfg < - data.frame(x=c(4, 9, 5, 6, 10, 2, 3, 7, 8, 1),
                   y=c(9, 4, 3, 1, 5, 2, 8, 10, 7, 6),
                   group=c('A', 'B', 'C', 'D', 'E'))
  
gfg$group < - factor(gfg$group, levels=c("E", "B", "A", "C", "D"))
  
gfg_plot < - ggplot(gfg, aes(x, y)) + geom_point() +
facet_grid(.~group)
  
gfg_plot


R
library(ggplot2)
  
gfg < - data.frame(x=c(4, 9, 5, 6, 10, 2, 3, 7, 8, 1),
                   y=c(9, 4, 3, 1, 5, 2, 8, 10, 7, 6),
                   group=c('A', 'B', 'C', 'D', 'E'))
  
gfg$group < - factor(gfg$group, levels=c("C", "E", "B", "A", "D"))
  
gfg_plot < - ggplot(gfg, aes(x, y)) + geom_bar(stat="identity") +
facet_grid(.~group)
  
gfg_plot


输出:

现在让我们使用 levels函数重新排序方面。

示例:重新排序刻面后的绘图



电阻

library(ggplot2)
  
gfg < - data.frame(x=c(4, 9, 5, 6, 10, 2, 3, 7, 8, 1),
                   y=c(9, 4, 3, 1, 5, 2, 8, 10, 7, 6),
                   group=c('A', 'B', 'C', 'D', 'E'))
  
gfg$group < - factor(gfg$group, levels=c("E", "B", "A", "C", "D"))
  
gfg_plot < - ggplot(gfg, aes(x, y)) + geom_point() +
facet_grid(.~group)
  
gfg_plot

输出:

示例:在此示例中,我们将为 ggplot2 条形图使用一组 10 个数据点,并将在水平函数的帮助下相应地重新排序此条形图的方面。

电阻

library(ggplot2)
  
gfg < - data.frame(x=c(4, 9, 5, 6, 10, 2, 3, 7, 8, 1),
                   y=c(9, 4, 3, 1, 5, 2, 8, 10, 7, 6),
                   group=c('A', 'B', 'C', 'D', 'E'))
  
gfg$group < - factor(gfg$group, levels=c("C", "E", "B", "A", "D"))
  
gfg_plot < - ggplot(gfg, aes(x, y)) + geom_bar(stat="identity") +
facet_grid(.~group)
  
gfg_plot

输出: