主页 / user-9514097

David Moore's questions

Martin Hope
David Moore
Asked: 2024-08-22 08:27:17 +0800 CST
  • 6

我有以下数据框。

Data_Frame <- structure(list(Factor_1 = c("AA", "AA", "AA", "AA", "AA", "AA", "AA", "AA", "AA", "AA", "AA", "AA", "AA", "AA", "AA", "BB", "BB", "BB", "BB", "BB", "BB", "BB", "BB", "BB", "BB", "BB", "BB", "BB", "BB", "BB", "CC", "CC", "CC", "CC", "CC", "CC", "CC", "CC", "CC", "CC", "CC", "CC", "CC", "CC", "CC", "DD", "DD", "DD", "DD", "DD", "DD", "DD", "DD", "DD", "DD", "DD", "DD", "DD", "DD", "DD"), Factor_2 = c("aa", "aa", "aa", "bb", "bb", "bb", "cc", "cc", "cc", "dd", "dd", "dd", "ee", "ee", "ee", "aa", "aa", "aa", "bb", "bb", "bb", "cc", "cc", "cc", "dd", "dd", "dd", "ee", "ee", "ee", "aa", "aa", "aa", "bb", "bb", "bb", "cc", "cc", "cc", "dd", "dd", "dd", "ee", "ee", "ee", "aa", "aa", "aa", "bb", "bb", "bb", "cc", "cc", "cc", "dd", "dd", "dd", "ee", "ee", "ee"), Factor_3 = c("xxx", "yyy", "zzz", "xxx", "yyy", "zzz", "xxx", "yyy", "zzz", "xxx", "yyy", "zzz", "xxx", "yyy", "zzz", "xxx", "yyy", "zzz", "xxx", "yyy", "zzz", "xxx", "yyy", "zzz", "xxx", "yyy", "zzz", "xxx", "yyy", "zzz", "xxx", "yyy", "zzz", "xxx", "yyy", "zzz", "xxx", "yyy", "zzz", "xxx", "yyy", "zzz", "xxx", "yyy", "zzz", "xxx", "yyy", "zzz", "xxx", "yyy", "zzz", "xxx", "yyy", "zzz", "xxx", "yyy", "zzz", "xxx", "yyy", "zzz")), class = "data.frame", row.names = c(NA, -60L))

我想编写一个递归函数，将该数据框拆分为嵌套列表。输出应类似于以下对象。

Split_Data <- lapply(lapply(split(Data_Frame, Data_Frame[, 1]), function (x) {
  split(x, x[, 2])
}), function (x) {
  lapply(x, function (y) {
    split(y, y[, 3])
  })
})

换句话说，应该首先根据第一列的值来拆分数据框，然后根据第二列的值来拆分，依此类推，直到所有列都已用于将数据拆分为越来越小的数据框（每次拆分后列表变得越来越嵌套）。

在这个例子中，数据框中只有三列，但实际上，可能有任意数量的列，所以我希望递归函数能够处理任意数量的列。

base优先考虑 R 解决方案。

谢谢！

Martin Hope
David Moore
Asked: 2024-08-21 05:07:32 +0800 CST
  • 8

我有以下数据框。

Data_Frame <- data.frame(Factor_1 = rep(LETTERS[1:4], each = 12, length.out = 48), Factor_2 = rep(letters[1:3], each = 4, length.out = 48), Factor_3 = rep(1:2, each = 2, length.out = 48), Response = rnorm(48, 25, 1))

我想创建一个嵌套列表，其中我已按研究中的每个因素连续拆分数据框。我将从一个包含列名的向量开始，这些列名包含我想按其拆分数据框的因素（此向量将按我希望结果列表嵌套的顺序包含这些因素）。

Factors_to_Split_by <- c("Factor_1", "Factor_2", "Factor_3")

结果列表应类似于以下Output对象。

Output <- lapply(lapply(split(Data_Frame, Data_Frame[, which(colnames(Data_Frame) == Factors_to_Split_by[1])]), function (x) {
  split(x, x[, which(colnames(x) == Factors_to_Split_by[2])])
}), function (x) {
  lapply(x, function (y) {
    split(y, y[, which(colnames(y) == Factors_to_Split_by[3])])
  })
})

我如何编写一个递归函数，将Factors_to_Split_by其用作输入并返回所需Output列表作为输出？我可能有超过 3 个因素来划分数据，并且我想要一些模块化、高效和程序化的东西。

谢谢！

Martin Hope
David Moore
Asked: 2024-05-22 05:27:16 +0800 CST
  • 5

我有以下图表。

ggplot() +
  geom_hline(aes(yintercept = 0, linetype = "Line 1"), color = "white", size = 1.25) +
  geom_hline(aes(yintercept = 0, linetype = "Line 2"), color = "white", size = 1.25) +
  scale_linetype_manual(name = "参考线", values = rep("dashed", 2), guide = guide_legend(override.aes = list(color = c("red", "green")))) +
  theme_void()

图表

我如何将图例居中在绘图区域？我将实际图表完全设置为白色，因为这种情况下我只对图例感兴趣。

Martin Hope
David Moore
Asked: 2024-05-22 02:16:04 +0800 CST
  • 5

我有以下数据和图表。

df <- data.frame(col1 = rnorm(1000, 0, 0.05), col2 = rnorm(1000, 0, 0.05))
ggplot(data = df, mapping = aes(x = col1, y = col2)) +
  geom_pointdensity() +
  scale_color_viridis()

阴谋

为了制作出版质量的图形，我想将图例标题从 更改"n_neighbors"为"Point Density"。我尝试了一些方法，但都不起作用。

ggplot(data = df, mapping = aes(x = col1, y = col2)) +
  geom_pointdensity() +
  scale_color_viridis() +
  labs(fill = "Point Density")
ggplot(data = df, mapping = aes(x = col1, y = col2)) +
  geom_pointdensity() +
  scale_color_viridis() +
  guides(fill = guide_legend(title = "Point Density"))

有办法进行这种改变吗？

Martin Hope
David Moore
Asked: 2024-03-14 21:42:43 +0800 CST
  • 5

我知道我可以制作一个图形，其中 6 个dygraph::dygraphs()图排列成 6 行 1 列。

library (dygraphs)
library (htmltools)
mdeaths <- structure(c(2134, 1863, 1877, 1877, 1492, 1249, 1280, 1131, 1209, 1492, 1621, 1846, 2103, 2137, 2153, 1833, 1403, 1288, 1186, 1133, 1053, 1347, 1545, 2066, 2020, 2750, 2283, 1479, 1189, 1160, 1113, 970, 999, 1208, 1467, 2059, 2240, 1634, 1722, 1801, 1246, 1162, 1087, 1013, 959, 1179, 1229, 1655, 2019, 2284, 1942, 1423, 1340, 1187, 1098, 1004, 970, 1140, 1110, 1812, 2263, 1820, 1846, 1531, 1215, 1075, 1056, 975, 940, 1081, 1294, 1341), tsp = c(1974, 1979.91666666667, 12), class = "ts")
Plot_List <- lapply(1:6, function (x) {
  dygraphs::dygraph(mdeaths)
})
htmltools::browsable(htmltools::tagList(Plot_List))

如何将这些图排列为 1 列 6 行？如何将它们排列成 2 列 3 行？