- html - 出于某种原因,IE8 对我的 Sass 文件中继承的 html5 CSS 不友好?
- JMeter 在响应断言中使用 span 标签的问题
- html - 在 :hover and :active? 上具有不同效果的 CSS 动画
- html - 相对于居中的 html 内容固定的 CSS 重复背景?
我有来自教育模块之前和之后的问卷调查的数据。我正在尝试使用 ggplot 在堆叠条形图中可视化数据,更具体地说是堆叠蝴蝶/ Tornado 图,我想让两个不同的场合(= 1 之前,= 2 之后)充当水平面。我已经手绘了我想要的图片,还有我目前得到的以及我的ggplot代码。
我有什么:
我需要什么:
我的代码:
likert_viz <- ggplot(all.gg.data, aes(x = number, y = item, fill = opinion)) +
geom_col(width = 5.0) +
geom_vline(xintercept = 50, color = c("white")) +
scale_y_discrete(limits = all.gg.data$item, labels = scales::wrap_format(50)) +
scale_x_continuous(labels = scales::percent) +
labs(title = "Opinion", subtitle = "Subtitle", x = "Percentage", y = "", color = "") +
facet_wrap(~occasion)
我的数据:(https://pastebin.com/CdgSseKJ)
我尝试过 facet,希望能够按照我想要的方式重新排列它们,但未能成功排列它们,以便一次一个问题的“之前”答案堆叠在“之后”答案之上。希望得到有用的建议或解决方案。
最佳答案
这相当棘手,我找到了两个解决方案:为正面意见创建一个面,为负面意见创建一个面,并删除面之间的空格;明确定义每个柱的开始和结束并将其传递给 geom_segment
而不是 geom_col
。
独立于您喜欢的方法,有很多共同点:
您问的第一件事是将不同场合的酒吧堆叠在一起。这可以通过在 geom_...
中添加 position = "dodge"
或 "dodge2"
来完成;或者通过执行 paste(item, "- Occasion", occasion)
创建一个新的 y 轴。第一个选项更优雅,但我无法让它工作。
第一步:创建新的 y 轴,并将 number
转换为频率(以便 x 轴从 -100% 变为 100%):
all.gg.data2 = df %>%
mutate(item2 = paste(item, "- Occasion", occasion)) %>%
group_by(item, occasion) %>%
mutate(number = number / sum(number))
第二步:因为我们希望 N 以零为中心,所以将该意见分成两半,即“积极部分”和“消极部分”
all.gg.data.N = all.gg.data2 %>%
filter(opinion == "N") %>%
{rbind(mutate(., number = number/2, opinion = "N-"),
mutate(., number = number/2, opinion = "N+"))}
第三步:添加新的 N 行,创建 scale
变量,并根据我们想要的方法转换 number
列。 第四步:绘图。现在我按方法来解释。
Obs:两者都使用自定义函数(基于 scales::wrap_format
)从 y 轴移除额外的文本:
my_wrap_format = function(x) {
x[seq(2, length(x), 2)] = gsub(".+(- Occasion [1-2])", "\\1", x[seq(2, length(x), 2)])
unlist(lapply(strwrap(x, width = 50, simplify = FALSE),
paste0, collapse = "\n"))}
geom_col
方法第三步:为负数部分更改number
的符号。
all.gg.data = all.gg.data2 %>%
filter(opinion != "N") %>%
rbind(all.gg.data.N) %>%
mutate(opinion = factor(opinion, levels = c("SD", "D", "N-", "SA", "A", "N+")),
scale = ifelse(opinion %in% c("SD", "D", "N-"), "-", "+"),
number = ifelse(scale == "-", -number, number))
第四步:根据scale
创建facet(facet_wrap(vars(scale))
),去除x轴多余空间( expand = c(0, 0)
和 panel.spacing = unit(0, "cm")
), 并用 连接 "N+"和 "N-">scale_fill_manual
。
ggplot(all.gg.data, aes(x = number, y = item2, fill = opinion)) +
geom_col() +
facet_wrap(vars(scale), ncol = 2, scales = "free_x") +
scale_y_discrete(labels = my_wrap_format) +
scale_x_continuous(labels = scales::percent, expand = c(0, 0)) +
labs(title = "Opinion", subtitle = "Subtitle", x = "Percentage", y = "", color = "") +
scale_fill_manual(values = c(SD = "darkblue", D = "blue", `N-` = "grey",
`N+` = "grey", A = "red", SA = "darkred"),
labels = c("SD", "D", "N", "A", "SA"),
breaks = c("SD", "D", "N-", "A", "SA")) +
theme(panel.spacing = unit(0, "cm"),
strip.text = element_blank(),
strip.background = element_blank())
geom_segment
方法第三步:为geom_segment
定义x
和xend
美学。 xend
是通过将 number
值与 purrr::accumulate
相加而创建的,但是在一个方向上是正尺度,另一个方向是负尺度. x
是由 xend
的滞后和每个尺度的不同起点创建的。
my_accumulate = function(number, scale) {
accumulate(number*ifelse(scale == "-", -1, 1), sum, .dir = ifelse(scale[1] == "-", "backward", "forward"))}
all.gg.data = all.gg.data2 %>%
filter(opinion != "N") %>%
rbind(all.gg.data.N) %>%
mutate(opinion = factor(opinion, levels = c("SD", "D", "N-", "N+", "A", "SA")),
scale = ifelse(opinion %in% c("SD", "D", "N-"), "-", "+")) %>%
arrange(item, occasion, opinion) %>%
group_by(item, occasion, scale) %>%
mutate(number = my_accumulate(number, scale),
numberStart = if(scale[1] == "-") {c(stats::lag(number, -1)[-1], 0)} else {c(0, stats::lag(number)[-3])})
Obs:您可以认为明确定义每个柱的起点和终点是由 geom_col
自动完成的,这就是为什么这个方法更大。
第四步:用scale_color_manual
连接“N+”和“N-”。
ggplot(all.gg.data, aes(x = numberStart, xend = number,
y = item2, yend = item2, color = opinion)) +
geom_segment(size = 2) +
scale_y_discrete(labels = my_wrap_format) +
scale_x_continuous(labels = scales::percent) +
labs(title = "Opinion", subtitle = "Subtitle", x = "Percentage", y = "", color = "") +
scale_color_manual(values = c(SD = "darkblue", D = "blue", `N-` = "grey",
`N+` = "grey", A = "red", SA = "darkred"),
labels = c("SD", "D", "N", "A", "SA"),
breaks = c("SD", "D", "N-", "A", "SA"))
geom_segment
方法:
my_wrap_format = function(x) {
x[seq(2, length(x), 2)] = gsub(".+(- Occasion [1-2])", "\\1", x[seq(2, length(x), 2)])
unlist(lapply(strwrap(x, width = 50, simplify = FALSE),
paste0, collapse = "\n"))}
my_accumulate = function(number, scale) {
accumulate(number*ifelse(scale == "-", -1, 1), sum, .dir = ifelse(scale[1] == "-", "backward", "forward"))}
all.gg.data2 = df %>%
mutate(item2 = paste(item, "\n- Occasion", occasion)) %>%
group_by(item, occasion) %>%
mutate(number = number / sum(number))
all.gg.data.N = all.gg.data2 %>%
filter(opinion == "N") %>%
{rbind(mutate(., number = number/2, opinion = "N-"),
mutate(., number = number/2, opinion = "N+"))}
all.gg.data = all.gg.data2 %>%
filter(opinion != "N") %>%
rbind(all.gg.data.N) %>%
mutate(opinion = factor(opinion, levels = c("SD", "D", "N-", "N+", "A", "SA")),
scale = ifelse(opinion %in% c("SD", "D", "N-"), "-", "+")) %>%
arrange(item, occasion, opinion) %>%
group_by(item, occasion, scale) %>%
mutate(number = my_accumulate(number, scale),
numberStart = if(scale[1] == "-") {c(stats::lag(number, -1)[-1], 0)} else {c(0, stats::lag(number)[-3])})
ggplot(all.gg.data, aes(x = numberStart, xend = number,
y = item2, yend = item2, color = opinion)) +
geom_segment(size = 10) +
scale_y_discrete(labels = my_wrap_format) +
scale_x_continuous(labels = scales::percent) +
labs(title = "Opinion", subtitle = "Subtitle", x = "Percentage", y = "", color = "") +
scale_color_manual(values = c(SD = "darkblue", D = "blue", `N-` = "grey",
`N+` = "grey", A = "red", SA = "darkred"),
labels = c("SD", "D", "N", "A", "SA"),
breaks = c("SD", "D", "N-", "A", "SA"))
分面 geom_col
方法:
all.gg.data2 = df %>%
mutate(item2 = paste(item, "\n- Occasion", occasion)) %>%
group_by(item, occasion) %>%
mutate(number = number / sum(number))
all.gg.data.N = all.gg.data2 %>%
filter(opinion == "N") %>%
{rbind(mutate(., number = number/2, opinion = "N-"),
mutate(., number = number/2, opinion = "N+"))}
all.gg.data = all.gg.data2 %>%
filter(opinion != "N") %>%
rbind(all.gg.data.N) %>%
mutate(opinion = factor(opinion, levels = c("SD", "D", "N-", "SA", "A", "N+")),
scale = ifelse(opinion %in% c("SD", "D", "N-"), "-", "+"),
number = ifelse(scale == "-", -number, number))
ggplot(all.gg.data, aes(x = number, y = item2, fill = opinion)) +
geom_col() +
facet_wrap(vars(scale), ncol = 2, scales = "free_x") +
scale_y_discrete(labels = my_wrap_format) +
scale_x_continuous(labels = scales::percent, expand = c(0, 0)) +
labs(title = "Opinion", subtitle = "Subtitle", x = "Percentage", y = "", color = "") +
scale_fill_manual(values = c(SD = "darkblue", D = "blue", `N-` = "grey",
`N+` = "grey", A = "red", SA = "darkred"),
labels = c("SD", "D", "N", "A", "SA"),
breaks = c("SD", "D", "N-", "A", "SA")) +
theme(panel.spacing = unit(0, "cm"), panel.border = element_blank(),
strip.text = element_blank(), strip.background = element_blank())
关于r - 带有 ggplot2 的堆叠蝴蝶/ Tornado 图,以零为中心,用于可视化前后李克特问卷,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/74232906/
我在为 MacOSX 构建的独立包中添加 DMG 背景的自定义图标时遇到问题。我在项目的根目录中添加了一个包。正在从中加载自定义图标,但没有加载 DMG 背景图标。我正在使用 Java fx 2.2.
Qt for Symbian 和 Qt for MeeGo 有什么区别?我知道 Qt 是一个交叉编译平台。这是否意味着如果我使用来自 Qt 的库,完全相同的库可以在所有支持 Qt 的设备(例如 Sym
我正在尝试使用 C# .NET 3.5/4.0 务实地运行 SQL Server 数据库的备份。我已经找到了如何完成此操作,但是我似乎找不到用于备份的命名空间库。 我正在寻找 Microsoft.Sq
我最近在疯狂学习 Java,但我通常是一名 .NET 开发人员。 (所以请原谅我的新手问题。) 在 .Net 中,我可以在不使用 IIS 的情况下开发 ASP.Net 页面,因为它有一个简化的 Web
这post仅当打印命令中有字符串时才有用。现在我有大量的源代码,其中包含一条声明,例如 print milk,butter 应该格式化为 print(milk,butter) 用\n 捕获行尾并不成功
所以我的问题是: https://gist.github.com/panSarin/4a221a0923927115584a 当我保存这个表格时,我收到了标题中的错误 NoMethodError (u
如何让 Html5 音频在点击时播放声音? (ogg 用于 Firefox 等浏览器,mp3 用于 chrome 等浏览器) 到目前为止,我可以通过 onclick 更改为单个文件类型,但我无法像在普
如果it1和it2有什么区别? std::set s; auto it1 = std::inserter(s, s.begin()); auto it2 = std::inserter(s, s.en
4.0.0 com.amkit myapp SpringMVCFirst
我目前使用 Eclipse 作为其他语言的 IDE,而且我习惯于不必离开 IDE 做任何事情 - 但是我真的很难为纯 ECMAScript-262 找到相同或类似的设置。 澄清一下,我不是在寻找 DO
我想将带有字符串数组的C# 结构发送到C++ 函数,该函数接受void * 作为c# 结构和char** 作为c# 结构字符串数组成员。 我能够将结构发送到 c++ 函数,但问题是,无法从 c++ 函
我正在使用动态创建的链接: 我想为f:param附加自定义转换器,以从#{name}等中删除空格。 但是f:param中没有转换器
是否可以利用Redis为.NET创建后写或直写式缓存?理想情况下,透明的高速缓存是由单个进程写入的,并且支持从数据库加载丢失的数据,并每隔一段时间持久保存脏块? 我已经搜查了好几个小时,也许是goog
我正在通过bash执行命令的ssh脚本。 FILENAMES=( "export_production_20200604.tgz" "export_production_log_2020060
我需要一个正则表达式来出现 0 到 7 个字母或 0 到 7 个数字。 例如:匹配:1234、asdbs 不匹配:123456789、absbsafsfsf、asf12 我尝试了([a-zA-Z]{0
我有一个用于会计期间的表格,该表格具有期间结束和开始的开始日期和结束日期。我使用此表来确定何时发生服务交易以及何时在查询中收集收入,例如... SELECT p.PeriodID, p.FiscalY
我很难为只接受字符或数字的 Laravel 构建正则表达式验证。它是这样的: 你好<-好的 123 <- 好的 你好123 <-不行 我现在的正则表达式是这样的:[A-Za-z]|[0-9]。 reg
您实际上会在 Repeater 上使用 OnItemDataBound 做什么? 最佳答案 “此事件为您提供在客户端显示数据项之前访问数据项的最后机会。引发此事件后,数据项将被清空,不再可用。” ~
我有一个 fragment 工作正常的项目,我正在使用 jeremyfeinstein 的 actionbarsherlock 和滑动菜单, 一切正常,但是当我想自定义左侧抽屉列表单元格时,出现异常
最近几天,我似乎平均分配时间在构建我的第一个应用程序和在这里发布问题!! 这是我的第一个应用程序,也是我们的设计师完成的第一个应用程序。我试图满足他所做的事情的外观和感觉,但我认为他没有做适当的事情。
我是一名优秀的程序员,十分优秀!