使用R和ggplot的堆积条形图

作者: 庸人自扰
发布时间: 2024-06-12 08:12:57 (1月前)
转自：

5 条回复

0#
回复此人
部落用户 | 2019-08-31 10-32

<div class =“post-text”itemprop =“text”> <P> 要实现此目的，您需要首先重构数据，以便有三列： <code> Technology </code> ， <code> Scenario </code> 和 <code> Percentage </code> 。就像是： </p> <pre> <code> Technology Scenario Percentage Biomass TodayScenario 0.130 Fossil gas TodayScenario 0.0965 Biomass WindScenario 0.0646 Fossil gas WindScenario 0.00309 Biomass BiomassScenario 0.182 Fossil gas BiomassScenario 0 </code> </pre> <P> 您可以使用 <code> tidyr::gather() </code> 为了那个原因。 </p> <pre> <code> library(tidyr) my_df %>% gather(Scenario, Percentage, c(TodayScenario, WindScenario, BiomassScenario)) %>% ggplot(aes(Scenario, Percentage, fill = Technology)) + geom_bar(stat = 'identity') </code> </pre> </DIV>

编辑
1#
回复此人
妖邪 | 2019-08-31 10-32

<div class =“post-text”itemprop =“text”> <P> 切换 <code> x </code> 和 <code> y </code> 并关闭支架 <code> ggplot() </code> ： </p> <pre> <code> ggplot(Distribution, aes(x = Technology, y = WindScenario)) + geom_bar(stat = "identity") </code> </pre> <P> 如果你想要垂直轴上的条形，你可以添加 <code> coord_flip() </code> 到了情节 </p> </DIV>

编辑
2#
回复此人
star*위위 | 2019-08-31 10-32

<div class =“post-text”itemprop =“text”> <pre> <code> ggplot(my_df, aes(x = Technology, y = WindScenario)) + geom_bar(stat = "identity", position = "stack") </code> </pre> </DIV>

编辑
3#
回复此人
荧惑 | 2019-08-31 10-32

<div class =“post-text”itemprop =“text”> <P> 为了获得包含数据的堆积条形图，您需要将数据组织成三列 - 技术，值和方案 - 就像这样（您可以将其复制并粘贴到控制台中）： </p> <pre> <code> structure(list(Technology = structure(c(1L, 1L, 1L, 3L, 3L, 3L, 2L, 2L, 2L, 5L, 5L, 5L, 7L, 7L, 7L, 8L, 8L, 8L, 6L, 6L, 6L, 4L, 4L, 4L), .Label = c("Biomass", "Coal", "Fossil gas", "Offshore", "Oil", "Onshore", "PV", "Waste"), class = "factor"), Values = c(0.13, 0.0646, 0.182, 0.0965, 0.00309, 0, 0.218, 0, 0, 0.00696, 0, 0, 0.0328, 0.0245, 0.0266, 0.042, 0, 0, 0.323, 0.311, 0.337, 0.15, 0.597, 0.454), Scenarios = structure(c(2L, 3L, 1L, 2L, 3L, 1L, 2L, 3L, 1L, 2L, 3L, 1L, 2L, 3L, 1L, 2L, 3L, 1L, 2L, 3L, 1L, 2L, 3L, 1L), .Label = c("Biomass Scenario", "Today Scenario", "Wind Scenario" ), class = "factor")), class = "data.frame", row.names = c(NA, -24L)) </code> </pre> <P> 按要素排序方案数据： </p> <pre> <code> df$Scenarios <- factor(df$Scenarios,levels = c("Today Scenario", "Wind Scenario", "Biomass Scenario")) </code> </pre> <P> 正确排列后，您现在可以在ggplot2中输出以下堆积条形图： </p> <pre> <code> library(ggplot2) ggplot(df, aes(fill=Technology, y=Values, x=Scenarios)) + geom_bar( stat="identity") </code> </pre> <P> <a href="https://i.stack.imgur.com/I7JYc.png" rel="nofollow noreferrer"> <img src =“https://i.stack.imgur.com/I7JYc.png”alt =“在此处输入图片说明”/> </A> </p> </DIV>

编辑

登录后才能参与评论