R 无法同时映射到 ggplot 和使用 facet wrap-6ren

R 无法同时映射到 ggplot 和使用 facet wrap

转载作者：行者123 更新时间：2023-12-05 05:53:37

这是我的原始数据框的一部分，它是调查数据。

structure(list(Ages = c(30L, 30L, 30L, 30L, 30L, 33L, 33L, 27L, 
27L, 27L, 27L, 27L, 27L, 27L, 27L, 27L, 27L, 27L, 27L, 27L, 27L, 
27L, 27L, 27L, 27L, 27L, 27L, 27L, 27L, 27L, 27L, 27L, 27L, 27L, 
27L, 27L, 27L, 27L, 27L, 27L, 27L, 27L, 27L, 27L, 27L, 27L, 27L, 
27L, 27L, 27L, 27L, 28L, 28L, 25L, 25L, 25L, 25L, 25L, 25L, 25L, 
25L, 29L, 29L, 29L, 29L, 29L, 29L, 29L, 29L, 29L, 29L, 29L, 29L, 
29L, 29L, 29L, 29L, 29L, 29L, 29L, 29L, 29L, 29L, 29L, 29L, 38L, 
38L, 38L, NA, NA, NA, NA, 31L, 31L, 31L, 31L, 31L, 31L, 33L, 
33L, 33L, 33L, 33L, 33L, 29L, 29L, 29L, 29L, 29L, 29L, 29L, 29L, 
29L, 29L, 29L, 29L, 29L, 29L, 29L, 29L, 29L, 29L, 29L, 29L, 29L, 
29L, 29L, 29L, 29L, 29L, 29L, 29L, 29L, 29L, 29L, 29L, 29L, 29L, 
29L, 29L, 34L, 34L, 34L, 34L, 34L, 34L, 34L, 34L, 34L, 34L, 34L, 
34L, 27L, 27L, 27L, 27L, 27L, 27L, 27L, 27L, 27L, 27L, 27L, 27L, 
27L, 27L, 27L, 27L, 27L, 27L, 27L, 27L, 27L, 27L, 27L, 36L, 36L, 
36L, 36L, 28L, 28L, 28L, 28L, 28L, 28L, 28L, 28L, 28L, 28L, 32L, 
32L, 32L, 32L, 32L, 32L, 32L, 32L, 32L, 32L, 32L, 32L, 32L, 32L, 
32L, 32L, 32L, 32L, 32L, 32L, 28L, 28L, 28L, 28L, 27L, 27L, 27L, 
27L, 27L, 27L, 27L, 27L, 32L, 32L, 32L, 32L, 32L, 32L, 32L, 32L, 
32L, 30L, 30L, 30L, 30L, 26L, 27L, 27L, 27L, 27L, 27L, 27L, 27L, 
27L, 27L, 27L, 27L, 27L, 27L, 27L, 27L), value = c("Response Eight", 
"Response Twelve", "Response Eleven", "Response Three", "Response Two", 
"Response Seven", "Response Seven", "Response Eight", "Response Nine", 
"Response Twelve", "Response Eleven", "Response Three", "Response Ten", 
"Response Two", "Response One", "Response Four", "Response Five", 
"Response Six", "Response Eight", "Response Nine", "Response Twelve", 
"Response Eleven", "Response Three", "Response Ten", "Response Two", 
"Response One", "Response Four", "Response Five", "Response Six", 
"Response Eight", "Response Nine", "Response Twelve", "Response Eleven", 
"Response Three", "Response Ten", "Response Two", "Response One", 
"Response Four", "Response Five", "Response Six", "Response Eight", 
"Response Nine", "Response Twelve", "Response Eleven", "Response Three", 
"Response Ten", "Response Two", "Response One", "Response Four", 
"Response Five", "Response Six", "Response Seven", "Response Seven", 
"Response Three", "Response One", "Response Three", "Response One", 
"Response Three", "Response One", "Response Three", "Response One", 
"Response Twelve", "Response Three", "Response Twelve", "Response Three", 
"Response Twelve", "Response Three", "Response Twelve", "Response Three", 
"Response Twelve", "Response Three", "Response Twelve", "Response Three", 
"Response Twelve", "Response Three", "Response Twelve", "Response Three", 
"Response Twelve", "Response Three", "Response Twelve", "Response Three", 
"Response Twelve", "Response Three", "Response Twelve", "Response Three", 
"Response Seven", "Response Seven", "Response Seven", "Response Eight", 
"Response Three", "Response Two", "Response One", "Response Ten", 
"Response Two", "Response Ten", "Response Two", "Response Ten", 
"Response Two", "Response Three", "Response One", "Response Three", 
"Response One", "Response Three", "Response One", "Response Eight", 
"Response Nine", "Response Three", "Response Ten", "Response Two", 
"Response One", "Response Eight", "Response Nine", "Response Three", 
"Response Ten", "Response Two", "Response One", "Response Eight", 
"Response Nine", "Response Three", "Response Ten", "Response Two", 
"Response One", "Response Eight", "Response Nine", "Response Three", 
"Response Ten", "Response Two", "Response One", "Response Eight", 
"Response Nine", "Response Three", "Response Ten", "Response Two", 
"Response One", "Response Eight", "Response Nine", "Response Three", 
"Response Ten", "Response Two", "Response One", "Response Eight", 
"Response Three", "Response Ten", "Response Eight", "Response Three", 
"Response Ten", "Response Eight", "Response Three", "Response Ten", 
"Response Eight", "Response Three", "Response Ten", "Response Eight", 
"Response Nine", "Response Three", "Response Two", "Response Six", 
"Response Eight", "Response Nine", "Response Three", "Response Two", 
"Response Six", "Response Eight", "Response Nine", "Response Three", 
"Response Two", "Response Six", "Response Twelve", "Response One", 
"Response Twelve", "Response One", "Response Twelve", "Response One", 
"Response Twelve", "Response One", "Response Seven", "Response Seven", 
"Response Seven", "Response Seven", "Response Eight", "Response Nine", 
"Response Twelve", "Response Eleven", "Response Ten", "Response Two", 
"Response One", "Response Four", "Response Five", "Response Six", 
"Response Eight", "Response Nine", "Response Ten", "Response One", 
"Response Eight", "Response Nine", "Response Ten", "Response One", 
"Response Eight", "Response Nine", "Response Ten", "Response One", 
"Response Eight", "Response Nine", "Response Ten", "Response One", 
"Response Eight", "Response Nine", "Response Ten", "Response One", 
"Response Seven", "Response Seven", "Response Seven", "Response Seven", 
"Response Eight", "Response Nine", "Response Twelve", "Response Ten", 
"Response Eight", "Response Nine", "Response Twelve", "Response Ten", 
"Response Eight", "Response Three", "Response Ten", "Response Eight", 
"Response Three", "Response Ten", "Response Eight", "Response Three", 
"Response Ten", "Response One", "Response One", "Response One", 
"Response One", "Response Seven", "Response Eight", "Response Twelve", 
"Response Ten", "Response Eight", "Response Twelve", "Response Ten", 
"Response Eight", "Response Twelve", "Response Ten", "Response Eight", 
"Response Twelve", "Response Ten", "Response Eight", "Response Twelve", 
"Response Ten"), n = c(3210L, 4658L, 1271L, 4453L, 2834L, 2526L, 
2526L, 3210L, 4098L, 4658L, 1271L, 4453L, 2975L, 2834L, 3833L, 
916L, 1221L, 1208L, 3210L, 4098L, 4658L, 1271L, 4453L, 2975L, 
2834L, 3833L, 916L, 1221L, 1208L, 3210L, 4098L, 4658L, 1271L, 
4453L, 2975L, 2834L, 3833L, 916L, 1221L, 1208L, 3210L, 4098L, 
4658L, 1271L, 4453L, 2975L, 2834L, 3833L, 916L, 1221L, 1208L, 
2526L, 2526L, 4453L, 3833L, 4453L, 3833L, 4453L, 3833L, 4453L, 
3833L, 4658L, 4453L, 4658L, 4453L, 4658L, 4453L, 4658L, 4453L, 
4658L, 4453L, 4658L, 4453L, 4658L, 4453L, 4658L, 4453L, 4658L, 
4453L, 4658L, 4453L, 4658L, 4453L, 4658L, 4453L, 2526L, 2526L, 
2526L, 3210L, 4453L, 2834L, 3833L, 2975L, 2834L, 2975L, 2834L, 
2975L, 2834L, 4453L, 3833L, 4453L, 3833L, 4453L, 3833L, 3210L, 
4098L, 4453L, 2975L, 2834L, 3833L, 3210L, 4098L, 4453L, 2975L, 
2834L, 3833L, 3210L, 4098L, 4453L, 2975L, 2834L, 3833L, 3210L, 
4098L, 4453L, 2975L, 2834L, 3833L, 3210L, 4098L, 4453L, 2975L, 
2834L, 3833L, 3210L, 4098L, 4453L, 2975L, 2834L, 3833L, 3210L, 
4453L, 2975L, 3210L, 4453L, 2975L, 3210L, 4453L, 2975L, 3210L, 
4453L, 2975L, 3210L, 4098L, 4453L, 2834L, 1208L, 3210L, 4098L, 
4453L, 2834L, 1208L, 3210L, 4098L, 4453L, 2834L, 1208L, 4658L, 
3833L, 4658L, 3833L, 4658L, 3833L, 4658L, 3833L, 2526L, 2526L, 
2526L, 2526L, 3210L, 4098L, 4658L, 1271L, 2975L, 2834L, 3833L, 
916L, 1221L, 1208L, 3210L, 4098L, 2975L, 3833L, 3210L, 4098L, 
2975L, 3833L, 3210L, 4098L, 2975L, 3833L, 3210L, 4098L, 2975L, 
3833L, 3210L, 4098L, 2975L, 3833L, 2526L, 2526L, 2526L, 2526L, 
3210L, 4098L, 4658L, 2975L, 3210L, 4098L, 4658L, 2975L, 3210L, 
4453L, 2975L, 3210L, 4453L, 2975L, 3210L, 4453L, 2975L, 3833L, 
3833L, 3833L, 3833L, 2526L, 3210L, 4658L, 2975L, 3210L, 4658L, 
2975L, 3210L, 4658L, 2975L, 3210L, 4658L, 2975L, 3210L, 4658L, 
2975L)), row.names = c(NA, -250L), class = c("tbl_df", "tbl", 
"data.frame"))

然后我创建一个新的数据框，它是原始数据框中每个值/响应的中位年龄的自举置信区间。我使用推断包来创建 ci。这是数据框的代码和输出。

bootstrapped_ci_df <- data_frame_responses %>% 
  split(.$value) %>% 
  map_df(~.x %>% 
  specify(response = Ages) %>%
  generate(reps = 1000, type = 'bootstrap') %>%
  calculate(stat = 'median') %>%
  get_ci(level = 0.99999), .id = 'value')

structure(list(value = c("Response One", "Response Two", "Response Three", 
"Response Four", "Response Five", "Response Six", "Response Seven", 
"Response Eight", "Response Nine", "Response Ten", "Response Eleven", 
"Response Twelve"), lower_ci = c(28.5, 28, 29, 28, 30, 29, 31, 
29, 28, 29, 28, 28), upper_ci = c(29, 29, 30, 29, 30.995005, 
30, 31.5, 30, 29, 30, 29, 29)), row.names = c(NA, -12L), class = c("tbl_df", 
"tbl", "data.frame"))

问题是当我使用 ggplot2 绘制图表时。

在第一种情况下，我可以创建一个看起来不错的图表。我将响应最多的值放在底部。

ggplot(data_frame_responses, aes(x = Ages, fill = fct_reorder(value, n))) + 
  geom_histogram() +
  facet_wrap(~ fct_reorder(value, n)) +
  theme(legend.position="none") +
  labs(title = "Title") +
  labs(subtitle = "Subtitle") +
  theme(plot.title = element_text(hjust = 0.5, face = "bold")) +
  theme(plot.subtitle = element_text(hjust = 0.5))

我还可以在数据框上映射置信区间，这看起来也不错。

ggplot(data_frame_responses, aes(x = Ages, fill = value)) + 
  geom_histogram() +
  facet_wrap(~value) +
  theme(legend.position="none") +
  labs(title = "Title") +
  labs(subtitle = "Subtitle") +
  geom_vline(mapping = aes(xintercept = lower_ci), bootstrapped_ci_df, linetype = 'dashed') +
  geom_vline(mapping = aes(xintercept = upper_ci), bootstrapped_ci_df, linetype = 'dashed') +
  labs(caption = "dashed lines = bootstrapped confidence interval for median") +
  theme(plot.title = element_text(hjust = 0.5, face = "bold")) +
  theme(plot.subtitle = element_text(hjust = 0.5))

问题是，我不知道如何做到这两点。我怎样才能用这些方面重新排序数据框并保持映射的完整性？这是我的尝试，您可以看到它是如何出错的。

ggplot(data_frame_responses, aes(x = Ages, fill = value)) + 
  geom_histogram() +
  facet_wrap(~ fct_reorder(value, n)) + 
  theme(legend.position="none") +
  labs(title = "Title") +
  labs(subtitle = "Subtitle") +
  geom_vline(mapping = aes(xintercept = lower_ci), bootstrapped_ci_df, linetype = 'dashed') +
  geom_vline(mapping = aes(xintercept = upper_ci), bootstrapped_ci_df, linetype = 'dashed') +
  labs(caption = "dashed lines = bootstrapped confidence interval for median") +
  theme(plot.title = element_text(hjust = 0.5, face = "bold")) +
  theme(plot.subtitle = element_text(hjust = 0.5))

最佳答案

两个数据框中的值变量需要保持一致。在您的代码中，您为 geom_histogram 更改了一个 data_frame_responses，但为 geom_vline

更改了一个 data_frame_responses

在 ggplot 之前更改两个 data.frames 的数据类型更容易。请注意:我使用不同的数据只是为了回答您的问题。


data_frame_responses <-data_frame_responses %>% mutate(
  value = fct_reorder(value, n)
)

bootstrapped_ci_df <-bootstrapped_ci_df %>% 
  mutate(value = factor(value, levels(data_frame_responses$value)))

ggplot(data_frame_responses, aes(x = Ages, fill = value)) + 
  geom_histogram() +
  facet_wrap(~value) +
  theme(legend.position="none") +
  labs(title = "Title") +
  labs(subtitle = "Subtitle") +
  geom_vline(mapping = aes(xintercept = lower_ci), bootstrapped_ci_df, linetype = 'dashed') +
  geom_vline(mapping = aes(xintercept = upper_ci), bootstrapped_ci_df, linetype = 'dashed') +
  labs(caption = "dashed lines = bootstrapped confidence interval for median") +
  theme(plot.title = element_text(hjust = 0.5, face = "bold")) +
  theme(plot.subtitle = element_text(hjust = 0.5))

关于R 无法同时映射到 ggplot 和使用 facet wrap，我们在Stack Overflow上找到一个类似的问题： https://stackoverflow.com/questions/69848227/

文章推荐： amazon-web-services - AWS IAM Bool 与 BoolIfExists

文章推荐： sql - 如何根据最近的日期将值归因于行

c++ - 映射/设置迭代器不是可取消引用的 C++ 映射
请看一下我的代码。 int main () { Program* allcommand = new Program; allcommand->addCommand("add", new
c++ - typedef 映射、for 循环调试断言、映射/设置不兼容
因此，当我遇到调试断言时，我正在编写代码。现在我很想知道为什么这段代码不起作用: for(Model::MeshMap::iterator it = obj1->GetMeshes().begin()
java - 组、收集器、映射(整数到字符串)、映射(映射到对象)
这是我上一个问题的延续 Group, Sum byType then get diff using Java streams . 按照建议，我应该作为单独的线程发布，而不是更新原始线程。因此，通过我
javascript - JQuery 映射 vs Javascript 映射 vs For 循环
我正在实现一些非常适合 map 的代码。但是，我要迭代的列表中有大量对象，所以我的问题是哪种方法是解决此问题的最佳方法: var stuff = $.map(listOfMyObjects, some
不同类成员函数指针的C++映射
我正在尝试创建一个包含不同类的成员函数指针的映射。成员函数都具有相同的签名。为了做到这一点，我所有的类都继承了一个 Object 类，它只有默认构造函数、虚拟析构函数和一个虚拟 ToString()
具有相同键类型和不同项目类型的c++映射
这个问题在这里已经有了答案: 关闭 11 年前。 Possible Duplicate: how do you make a heterogeneous boost::map? 有可能在 C++ 中
Mysql WHERE IN 映射
我有一个 Mysql 查询，请检查以下内容: SELECT `tbl_classSubjects`.`classID` , `tbl_classSubjects`.`sectionID` , `tbl
JNA直接与接口(interface)映射？
抱歉，这可能是一个基本问题。 JNA直接映射和接口(interface)映射有什么区别？我的解释是否正确: 直接映射 : 直接使用库对象(如 Java 中的静态 main) 接口(interface
以部分函数为值的 Scala 映射
在 Twitter's Scala school collections section ，它们显示了一个带有偏函数作为值的 Map: // timesTwo() was defined earlie
FFMPEG channel 映射
很难说出这里问的是什么。这个问题是模棱两可的、模糊的、不完整的、过于宽泛的或修辞的，无法以目前的形式得到合理的回答。如需帮助澄清这个问题以便重新打开它，visit the help center .
具有原始类型值类型的 Scala 映射
据我了解，从 scala stdlib 声明一个映射并没有将其专门用于原始类型。我要的不是付出装箱/拆箱的代价，而是同时拥有scala map 的接口(interface)。一个明显的选择是使用 tr
没有键路径的数组的 Restkit 映射
如何为这样的 JSON 响应创建对象映射，它只是一个整数数组: [ 565195, 565309, 565261, 565515, 565292, 565281, 566346, 5
NHibernate DTO 映射
是否可以为 DTO 对象创建映射然后查询它们而不是域？如果不解释为什么？如果我需要几个 dtos 怎么办？ DTos 是只读的 ID 由 NH 自动生成将来这些 dtos 将设置映射到链接的 d
包含混合类型值的 Scala 映射
我有一个返回的函数(常规代码) [words: "one two", row: 23, col: 45] 在 Scala 中，我将上面更改为 Scala Map，但随后我被迫将其声明为 Map[Str
python - 映射 - 特征重要性与标签分类
我有一组与 Vanilla 磅蛋糕烘焙相关的数据(200 行)，具有 27 个特征，如下所示。标签caketaste是衡量烤蛋糕的好坏程度，由 bad(0) 定义, neutral(1) , good
复杂连接的 Hibernate 映射
我有试图映射到新代码的遗留代码。 OLD_PERSON pid sid name age NEW_PERSON pid sid fid age RESOLVE_PERSON pid fid statu
带有鉴别器的 hibernate 映射
我有一个表，其中一个字段可以指向其他 3 个表之一中的外键，具体取决于鉴别器值是什么(Project、TimeKeep 或 CostCenter。通常这是用子类实现的，我想知道我有什么注意子类名称与
Haskell:映射 runST
我有一个类型 [ST s (Int, [Int])] 的绑定(bind)我正在尝试申请runST使用映射到每个元素，如下所示: name :: [ST s (Int, [Int])] --Of Cou
子类和连接子类的 NHibernate 映射
在我正在进行的项目中，我有以下实体:分析师、客户和承包商。每个都继承自基类 User。 public abstract class User { public virtual int Id
用户输入的 Vim 映射
我想知道是否可以在 Vim 中创建一个映射(对于普通模式)，允许用户在映射执行之前输入。我想为我最常用的 grep 命令创建一个快捷方式的映射。我希望命令允许输入我正在搜索的内容，然后在输入时执行。

行者123

个人简介

我是一名优秀的程序员,十分优秀！

作者热门文章

滴滴打车优惠券免费领取

全站热门文章

首页

博学

6Ren·AI

商城

R 无法同时映射到 ggplot 和使用 facet wrap