如何使用split和sapply在ggplot中组合多个数据源？
在ggplot中使用split和sapply组合多个数据源的方法如下：
- 首先，使用split函数将数据源按照某个变量进行分组，生成一个数据框列表。例如，将数据源按照某个分类变量进行分组。
- 接下来，使用sapply函数对数据框列表进行遍历，对每个数据框进行相同的操作。在这个操作中，可以使用ggplot函数创建图形，并使用数据框中的变量进行绘图。
- 在sapply函数中，可以使用匿名函数或自定义函数来定义绘图操作。在这个函数中，可以使用ggplot函数创建图形，并使用数据框中的变量进行绘图。
- 最后，使用gridExtra包中的grid.arrange函数将多个图形组合在一起，生成一个组合图形。
下面是一个示例代码：
# 导入必要的包
library(ggplot2)
library(gridExtra)
# 创建一个数据框
df <- data.frame(
x = c(1, 2, 3, 4, 5),
y1 = c(1, 4, 9, 16, 25),
y2 = c(1, 8, 27, 64, 125),
group = c("A", "A", "B", "B", "B")
)
# 使用split函数按照group变量分组
df_list <- split(df, df$group)
# 使用sapply函数对数据框列表进行遍历，并绘制图形
plot_list <- sapply(df_list, function(data) {
ggplot(data, aes(x, y1)) +
geom_point() +
geom_line() +
labs(title = paste("Group", unique(data$group)))
}, simplify = FALSE)
# 使用grid.arrange函数将多个图形组合在一起
combined_plot <- do.call(grid.arrange, plot_list)
# 显示组合图形
print(combined_plot)在这个示例中，我们首先创建了一个包含x、y1、y2和group变量的数据框。然后，使用split函数将数据框按照group变量分组，生成一个数据框列表。接下来，使用sapply函数对数据框列表进行遍历，对每个数据框使用ggplot函数创建图形。在这个例子中，我们使用了散点图和折线图来展示y1变量的趋势。最后，使用grid.arrange函数将多个图形组合在一起，生成一个组合图形。
请注意，这只是一个示例代码，实际应用中需要根据具体需求进行修改和调整。同时，根据具体的数据和需求，可能需要使用其他的ggplot函数和参数来创建不同类型的图形。
相关·内容
df1：
meats <- c("steak;apples", "ham;pears", "chicken;bananas")
fruit <- c("","","")
我想从“肉类”列中提取字符串中的水果部分，并将其移动到相应的水果列，但只在水果列中有一个空字段的情况下。我的数据框架实际上要大得多，并不是所有的值都丢失在“果树”列中。
所以我最终会有这样的结果：
meats <- c("steak", "ham", "chicken
浏览 3提问于2022-03-21得票数 2
回答已采纳
1回答
我想做一个wilcox测试，并为箱线图中的每个组(而不是组之间)添加一个显著性条形图。例如，比较时间2、6和14的子组("0"，"1")。到目前为止，我得到的是：
WS = time
DV = effect
分组计数=分组("0“或"1")
p <- ggplot(data, aes(x=WS, y=DV, group=count))
p <- p + geom_boxplot(aes(fill=factor(count), group=interaction(WS, count)))
p <- p + stat_sum
浏览 326提问于2019-04-14得票数 1
回答已采纳
假设我有：
a = data.frame(a = sample(1:10, 20, replace = T))
b = data.frame(b = sample(1:11, 19, replace = T))
c = data.frame(c = sample(1:9, 21, replace = T))
a.a = ggplot(data = a, aes(a)) + geom_bar()
b.b = ggplot(data = b, aes(b)) + geom_bar()
c.c = ggplot(data = c, aes(c)) + geom_bar()
我如何将a.a、b.b和
浏览 3提问于2015-12-06得票数 0
回答已采纳
1回答
在facet_wrap或facet_grid中是否有可能释放刻度的位置，但修正刻度(即刻度标记之间的距离)？
fixed选项既修正了给定标度的位置，也修正了它的规模。例如，在下面，每个窗格具有相同的限制和缩放：
library(ggplot2)
ggplot(within(mtcars,
split <- rowSums(sapply(c(.3,.5,.6),function(x) disp> quantile(disp,x))%*%(1:3))),
aes(mpg, hp)) + geom_point() + stat_smooth(m
浏览 4提问于2020-08-01得票数 0
回答已采纳
在R中，ggplot2和lattice软件包都提供了可视化数据的可能性，不仅通过它们的x和y位置，而且还考虑了一个额外的因素，即改变观测表示的颜色、大小或形状(点、平滑线等)。或者按照这个因素将可视化分割成不同的图表。
ggplot__的示例：
require(ggplot2)
ggplot(diamonds, aes(x = carat, y = price, col=clarity)) +
geom_point(alpha = .3)
lattice__的示例：
require(lattice)
require(mlmRev); data(Chem97, package = "
浏览 2提问于2017-04-06得票数 0
我正在使用R.这些是我的数据：
Prot_before：A矩阵有70000行，每行有两列:组(有700个组)和每个样本的值(有120个samples).Prot_healthy：A矩阵，有30000行，每一行有两列:组(700个组)和每个样本值(45个样本)。
对于prot_before中的每一行，我希望找到它的值减去prot_healthy中该组中所有样本的值。
例如：
set.seed(100)
Prot_before <- data.frame(cat = c(rep("aaa", 5), rep("bbb", 5), rep("ccc&#
浏览 4提问于2019-11-29得票数 3
我有一个数据框，看起来像这样：
Spec. Month SampleMethod Prey1 Prey2
AR April Opp 37.2 23.2
AR April Clu 40.1 19.2
AR April Hom 2.4 70.1
MR April Opp 34.2 27.2
MR April Clu
浏览 0提问于2015-12-23得票数 0
3回答
首先，让我分享一个虚拟数据，我想从这些数据中准备出图形。
library(tidyverse)
set.seed(1)
sample_size <- 1200
dates <- sample(seq(1,31),sample_size,replace = TRUE)
Monthss <- sample(seq(1,12),sample_size,replace = TRUE)
hrs <- sample(seq(1,23),sample_size,replace = TRUE)
minutes <- sample(seq(1,59),sample_size,rep
浏览 6提问于2022-10-17得票数 0
1回答
我想从列中添加值。它们按顺序排列：
0,225,2352,34234,23442,23456,0,123,...
我想把从0到后面0的值相加，但不包括第二个。例如，我想要(0+225+2352+34234+23442+23456),(0+123+,...,),...的输出
我想将它们存储为一个新的合计列
浏览 1提问于2020-11-17得票数 2
2回答
嗨，我正试着按升序对两个值a和b进行排序，并从中得到a_out和b_out。
a= c("MN, OP, AB")
b = c("MN, O P, A B")
a_out = "AB,MN,OP"
b_out = "A B,MN,O P"
我尝试使用下面的语句，但无法获得所需的输出。
a_out = sort(a)
b_out = sort(b)
提前感谢
浏览 4提问于2021-10-04得票数 2
回答已采纳
2回答
我的情况是，由于一个大文件的大小，我不得不将它分割成块。我希望在所有文件中都有一个列的直方图，所以我被迫将每个块直方图并将结果直方图逐个地添加到bin中。直方图作为列表保存如下：
for (i in 1:8) {
dataset <- read.csv(capture.output(cat("split1/", filelist[i], sep = "")))
dataset.hist[[i]] <- ggplot(dataset, aes(x = Value))
+ geom_histogram(breaks = seq(
浏览 2提问于2013-12-04得票数 1
回答已采纳
1回答
我一直在寻找使用函数调用dataset中列的正确方法。问题是，我有多个列，每个月的日期和时间都在一个单元格内。因此，我想编写一个函数来拆分它们，只需在函数中输入参数。因此，我不必每次都编写该代码，而只编写函数。我写下了列名和下面的函数。
(DataFrame，SourceColumn：数据存储在列中的位置，TargetDate：日期需要去哪里，TargetTime：时间需要去哪里)
test <- function(DataFrame, SourceColumn, TargetDate, TargetTime)
DataFrame$TargetDate <- sapply(strs
浏览 2提问于2015-03-12得票数 1
我正在创建一个网格视图，需要从返回IEnumerable类型的各种函数中收集数据。
我已经使用dataset作为数据源创建了网格视图，但是如何使用(IEnumerable的)多个数据源来填充一个网格视图呢？例如，如何将所有这些数据组合到一个数据集中？
谢谢
浏览 0提问于2012-02-29得票数 0
回答已采纳
1回答
我有一些数据，其中每个观察包含两个因素，类(a和E之间的字母)和标志(0或1)。在应用了group_by(类、标志)和汇总(frequency=n())之后，我得到了一个类似于此的数据框架：
classes <-as.factor(c("A", "A", "B", "B", "C", "C", "D", "D", "E", "E"))
flag <- as.factor(rep(c(0,1),10))
qua
浏览 1提问于2019-04-21得票数 0
回答已采纳
1回答
我有一个包含4 components的图表。现在，我想在all components中添加一个基于size of the membership的边缘。
例如，下面的图包含4 components。
首先，我将连接all components with only one edge and take the edge randomly。我可以用下面的代码来做
graph1 <- graph_from_data_frame(g, directed = FALSE)
E(graph1)$weight <- g$new_ssp
cl <- components(graph1)
浏览 2提问于2021-03-27得票数 1
回答已采纳
1回答
我想要一个函数，它接受一个字符串(而不是向量)并反转该字符串中的单词。
例如,
rev_sentence("hi i'm five")
## [1] "five i'm hi"
我有一个函数，可以反转单个字符，但不能逆转本质上是句子的字符串。
浏览 1提问于2018-04-13得票数 8
回答已采纳
1回答
我想访问默认的行或从ggplot2填充颜色，我不知道如何做到这一点。具体来说，在下面的代码中，您将看到注释中使用了green4、blue4和red4。这些是我认为ggplot2正在使用的近似。
此外，如果此代码没有遵循最佳实践，或者可能受益于另一种方法，请提供建议。
library(ggplot2)
ggplot(data.frame(x = c(0, 1000)), aes(x)) +
stat_function(fun = dnorm, geom = "density", args = list(mean = 200, sd = 50),
浏览 2提问于2014-01-15得票数 3
回答已采纳
假设我们运行以下代码：
iris %>%
group_split(Species) %>%
map(~ggplot(., aes(x = Sepal.Length, y = Sepal.Width))+
geom_point())
这将形成三个分开的散点图，分别为萼片长度和萼片宽度，按物种分组。
但是现在，假设我想将这三个文件保存为.png。我希望他们被称为setosa.png，versicolor.png和virginica.png。我如何在不离开map“循环”的情况下做到这一点？我知道我可以将情节保存在一个列表中，然后调用一个for循
浏览 5提问于2020-08-12得票数 1
回答已采纳
3回答
我有一个简短的问题
我有一个包含许多测量值列的数据帧。我想计算具有相同(标题)名称的列的平均值。我使用了下面的代码(在stackoverflow中找到)..
以数据为例。
df <- data.frame(c(1, 2, 3, 4,5),
c(2, 3, 4,NA,2),
c(3, 4, 5,3,6),
c(3, 7, NA,3,6))
names(df) <- c("a", "b", "a", "b")
df &
浏览 3提问于2018-01-16得票数 1
回答已采纳
我在我的程序中有现有的组合框，它添加了一些事件，它的元素列表正在随时间变化。我和dataGridViewComboBoxColumn有dataGridView。现在，我想将我的组合框添加到dataGridView中的一个单元格中。我怎么才能做到呢？我尝试了几个例子，我在互联网上找到的，但我不工作。
编辑
我知道这是不可能的。那么，如何从dataGridViewComboBoxColumn向comboBox添加事件呢？
编辑2
dataGridView.EditingControlShowing += dataGridView1_EditingControlShowing;
private
浏览 0提问于2011-06-16得票数 0
我正在尝试使用ggplot2创建一个包含以下内容的盒图：
X作为一个连续变量
不同组的颜色
以下是一个例子：
x <- sample(c(1,2,5),300,replace = TRUE)
y <- sapply(x,function(mu) rnorm(1,mean = mu))
color <- sample(c("color 1","color 2"),300,replace = TRUE)
data <- data.frame(x, y, color)
我可以把颜色和x作为一个因素
浏览 3提问于2017-11-16得票数 0
1回答
我已经做了一段时间的睡眠分析项目，现在我收集了一些数据，我想做点什么。首先，我已经注册了一段时间的睡眠运动，现在在一个.csv文件中，如下所示：
0:58 1:08 1:18 1:28 1:38 1:48 1:58
3096 4062 903 113 1331 76 521
0:30 0:40 0:50 1:00 1:10 1:20 1:30
4081 1661 1198 70 841 1052 76
0:47 0:57 1:
浏览 2提问于2015-12-02得票数 1
回答已采纳
2回答
ggplot2似乎没有一个内置的方法来处理上文本的过度绘制。然而，我有一个不同的情况，标签是在一个离散的轴上，我想知道这里是否有人有一个更好的解决方案，我已经做了。
一些示例代码：
library(ggplot2)
#some example data
test.data = data.frame(text = c("A full commitment's what I'm thinking of",
"History quickly crashing through your veins
浏览 6提问于2015-06-02得票数 9
回答已采纳
我有一个65个变量的列表，我想把数值变量和分类变量的列表分开。
此任务可以使用什么命令。
浏览 0提问于2014-05-28得票数 4
回答已采纳
我试图为ggplot2创建一个转换，它可以缩放x轴，使其具有统一的可视化分布。
在教程之后，我简单地实现了以下内容：
q_trans <- function() trans_new(
"quantile",
transform = function(x, a) {mean (x >= a)},
inverse = function(x, a) {sort(a)[x*length(a)]}
)
但当我跑
ggplot(mpg, aes(displ, hwy)) + geom_smooth() + coord_trans(x = "q")
浏览 5提问于2016-11-16得票数 2
回答已采纳
2回答
列表中匹配索引的快速获取方法
、、、、
给出了一个包含不等长度向量的列表a和一个包含a向量中某些元素的向量b，我想得到一个与b相同长度的向量，其中包含a中的索引，其中b中的元素匹配(这是一个错误的解释).
以下代码执行此任务：
a <- list(1:3, 4:5, 6:9)
b <- c(2, 3, 5, 8)
sapply(b, function(x, list) which(unlist(lapply(list, function(y, z) z %in% y, z=x))), list=a)
[1] 1 1 2 3
当然，用for循环替换sapply实现了同样的目的。
问题是，这个代码将用于列表和长度超过100
浏览 4提问于2012-06-12得票数 16
回答已采纳
1回答
这是我的数据样本。我有三年，三个州，六个角色。我想对我的dataframe进行子集，以便为所有六个角色的每一年和每一个组合都提供一个新的dataframe。
> A[1:10,c(1,4,64:69)]
Year State Role1 Role2 Role3 Role4 Role5 Role6
1 2010 1 1 0 1 1 0 0
2 2012 3 1 0 0 1 0 0
3 2010 2 1 0 0 1 0 0
4
浏览 1提问于2020-01-11得票数 1
回答已采纳
1回答
是否有方法在ggupset中显示未观察集？
Reprex
在这个例子中，我想展示B，即使它没有被观察到。
library(ggplot2)
library(ggupset)
df <- data.frame(x = I(list(c("A", "C"),
"A",
"C")))
df %>%
ggplot(aes(x = x)) +
geom_bar(stat = 'count'
浏览 18提问于2022-11-17得票数 1
回答已采纳
3回答
作为从我已经创建的地块(所以链接)中删除特定geom的工作的一部分，我想动态地确定ggplot2对象的每个层的geom类型。
假设我不知道添加层的顺序，是否有一种方法可以动态地找到具有特定geom的层？如果像下面这样打印出层，我可以看到层存储在列表中，但我似乎无法访问geom类型。
library(ggplot2)
dat <- data.frame(x=1:3, y=1:3, ymin=0:2, ymax=2:4)
p <- ggplot(dat, aes(x=x, y=y)) + geom_ribbon(aes(ymin=ymin, ymax=ymax), alpha=0.3)
浏览 7提问于2012-11-19得票数 9
回答已采纳
1回答
按多个因素创建分组图
、、、、
我目前正在研究dplyr和ggplot的优势。在我的一个图中，我有一个包含两个因子的data.frame，即F1和F2。我想为F1和F2 (笛卡尔乘积，这里是4=2 x 2结果)的每种可能的组合创建一个线状图。
看起来，在这里F1，ggplot只接受一个因子。所以我的图中的线条是相连的，而我希望有四条单独的线条。
library(dplyr)
library(ggplot2)
df<-data.frame("X"=c(1,2,4,5,7,8,10,11),"Y"=c(1,2,3,4,5,6,7,8),"F1"=c(1,1,1,1,2,2,
浏览 1提问于2018-01-17得票数 2
回答已采纳
我的场景是，我有一些MySQL格式的支付交易数据和一些MongoDB格式的文档，比如发票文档。这两个数据存储之间不需要关联。问题是如何通过O/R映射支持同时访问它们。似乎我们可以为MongoDB提供JPA。但我不确定如何在同一个应用程序中使用JPA api访问这两个数据存储。
谢谢!
浏览 2提问于2012-03-25得票数 1
回答已采纳
3回答
假设我有一个矩阵M和整数的向量G，这样G的条目和M中的列一样多。例如(示意性地)：
G: 1 1 1 2 2 3 3 3 3
M: 4 20 12 4 71 46 45 25 64
50 54 88 1 80 8 86 71 26
28 7 31 44 84 46 35 32 0
45 15 46 76 39 67 10 59 59
向量G编码一组M的列。在
浏览 0提问于2017-01-17得票数 1
回答已采纳
可能重复：
我正在使用R，我希望能在我遇到的问题上得到一些帮助：
我有一个带有列ID和列情感的dataframe (df)。ID中的每个值对应于情感上的40-300个值(所以它不是一个固定的数字)。我需要计算Emotion中每一个j的平均值。所以这就是数据的样子
df$ID = (1, 1, 1, 1, 2, 2, 3)
df$Emotion = (2, 4, 6, 4, 1, 1, 8)
因此，均值的向量应该如下所示：(4, 1, 8)
任何帮助都将不胜感激！
浏览 8提问于2012-11-16得票数 12
我即将使用包“最远”来报告系列数据集的模式。
请查看有关该软件包的网站：
例如：
x <- rbeta(1000,23,4)
M <- mlv(x, method = "kernel")
M[1]
M打印模式(最有可能是值)。
在我的例子中，我希望使用运行方法每10个数字获得一次模式值。
如果序列数据集包含100个数字，则希望每10个数字获得10个模式值。
请让我指导我如何在R中做到这一点。
我已经查看了运行中位数"runmed"，我希望能够找到类似的方法来报告运行模式值。
非常感谢。
浏览 4提问于2015-11-02得票数 1
回答已采纳
1回答
我正在尝试创建一个与pubmed api交互的函数，以检索与100个出版物相关的xml文件。然后，我想逐个解析xml文件，以检索每个出版物的标题和摘要。我正在使用Rentrez包与api进行交互，并且已经成功地检索到了必要的xml文件。我正在使用xml包解析xml文件，并且已经验证了Xpath表达式是否检索到了我想要的数据。事实上，我希望从其他领域(期刊标题、网格术语等)获取数据，但我在这里停留在这一步)
但是，我还无法创建合适的for循环来将此数据移动到数据帧中。我在运行我的代码时收到以下错误：
$<-.data.frame错误(*tmp*，“摘要”，值=列表(“摘要文本”)：替换有1
浏览 0提问于2016-12-03得票数 0
3回答
假设我在数据框架中有一个字符列，它包含a、b和c的每一个双重组合，如下所示
dat <- data.frame(V1 = c("a_a","a_b","a_c","b_a","b_b","b_c","c_a","c_b","c_c"))
但是，我不关心订单，所以我想删除重复的b_a、c_a和c_b，因为我已经有了a_b、a_c和b_c。
dat <- data.frame(V1 = c("a_a","a_b"
浏览 0提问于2018-04-11得票数 0
回答已采纳
我有一个23 df的列表plotDat，我正在使用ggplot、lapply和一个匿名函数为每个数据帧创建和导出图表。对于每个df，图表表示列浓度(Y轴)和列年(X轴)。
pdf("Plots.pdf")
lapply(names(plotDat), function(i){
ggplot(plotDat[[i]], aes(Year, Concentration, group = Chemicals, col = Chemicals)) +
geom_line() +
geom_point() +
ggtitle(paste("",
浏览 1提问于2020-07-07得票数 1
回答已采纳
2回答
我是R和ggplot2的新手。我将如何将定制应用于多个地块？我以为我可以将定制存储在一个变量中，但这是行不通的：
# customization <- theme_bw() + xlab("time")
x <- 1:20
y <- dnorm(x, 10, 5)
y2 <- dnorm(x, 10, 2)
p1 <- ggplot() + geom_line(aes(x,y)) # + customization
p2 <- ggplot() + geom_line(aes(x,y2)) # + customization
现在，我想将自定
浏览 2提问于2014-06-13得票数 3
回答已采纳
1回答
我有一个想要传递给patchwork：：wrap_plots的地块列表：
library(tidyverse)
library(patchwork)
# plots with na
dummy_plot <- ggplot() + theme_void()
p <- ggplot(mtcars, aes(mpg, cyl)) + geom_point()
plots <- list(p, p, NA)
patchwork::wrap_plots(plots)
给出错误：
错误:只知道如何添加ggplots和/或grobs
因此，我想对我的列表进行预处理，用上面空白的虚拟图
浏览 1提问于2021-04-14得票数 2
回答已采纳
2回答
我有一个像这样的数据文件：
x<-data.frame(a=6, b=5:1, c=7, d=10:6)
> x
a b c d
1 6 5 7 10
2 6 4 7 9
3 6 3 7 8
4 6 2 7 7
5 6 1 7 6
我试图在另一个数据框架中获取列a & b和c&d的总和，这些数据应该如下所示：
> new
ab cd
1 11 17
2 10 16
3 9 15
4 8 14
5 7 13
我尝试过rowSums()函数，但是它返回每行所有列的和，我尝试了rowSums(x[c(1,2), c(3,4)])，但是没有工作
浏览 3提问于2014-09-23得票数 1
回答已采纳
探索新的数据集:可视化许多(所有)变量的最简单、最快速的方法是什么？
理想情况下，输出以最小的杂乱和最大的信息显示彼此相邻的直方图。这个问题的关键是灵活性和稳定性，以处理大型和不同的数据集。我使用的是RStudio，通常要处理大量杂乱的调查数据。
下面是一个开箱即用的Hmisc示例，它运行得很好：
library(ggplot2)
str(mpg)
library(Hmisc)
hist.data.frame(mpg)
不幸的是，我在其他地方遇到了数据标签的问题( plot.new()中的错误:数字边距太大)。对于比mpg更大的数据集，它也崩溃了，而我还没有想出如何控制入库。此外，我更喜欢g
浏览 5提问于2012-06-27得票数 8
回答已采纳
5回答
我想从ggplot2创建的网格对象中删除一个layer (在本例中是geom_ribbon的结果)。一旦它已经是对象的一部分，有没有方法可以删除它？
library(ggplot2)
dat <- data.frame(x=1:3, y=1:3, ymin=0:2, ymax=2:4)
p <- ggplot(dat, aes(x=x, y=y)) + geom_ribbon(aes(ymin=ymin, ymax=ymax), alpha=0.3)
+ geom_line()
# This has the geom_ribbon
p
# This overlays
浏览 125提问于2012-11-16得票数 34
回答已采纳
1回答
我有这样的数据：
library(ggplot2)
library(dplyr)
dt <-
expand.grid(
month = seq(1, 12),
agent_id = seq(1, 1000)
) %>%
mutate(sales = row_number())
我想为所有的agent_id打印标记图，所以我创建了这幅图
src <- dt %>% filter(agent_id == 2)
title <- as.character(src$agent_id)
ggplot(src, aes(x = month
浏览 1提问于2022-08-16得票数 0
使用diamonds数据集(来自ggplot2库)作为示例，我试图根据命名元素的向量(向量的名称按列进行子集，相应的向量元素按行进行子集)，按列和行对此表进行子集。
library(ggplot2)
diamonds
# A tibble: 53,940 x 10
carat cut color clarity depth table price x y z
<dbl> <ord> <ord> <ord> <dbl> <dbl> <int> <d
浏览 1提问于2020-07-28得票数 6
回答已采纳
1回答
今天我有个惊喜。一位客户告诉我们，他们已经设置了两个可用端口来连接到Oracle Server数据库。
我不知道这样做的原因，但问题的出现是因为我们正在使用Weblogic中的连接池来访问Oracle Server，而且在我所知道的情况下，没有能力在一个连接池中定义两个不同的端口。
为什么任何人都可以配置两个不同的端口来访问DB Server？原因是什么？
连接池可以在其配置中有两个不同的端口吗？如果有可能，我该怎么做？
Weblogic Server为12.1.2，Oracle服务器为11.2.0.2
非常感谢您的帮助！
浏览 0提问于2016-05-05得票数 0
3回答
在summarize(...)中(或者在do(...)中)创建多列的最佳方法是什么？如果某个聚合函数返回多个值，则会出现这种情况。这种函数的一个例子是quantile(...)。
例如，假设我们有以下数据
library(dplyr)
data.frame(x = runif(1000, min = 0, max = 20)) %>%
mutate(y = rnorm(n(), mean = sin(x))) %>%
group_by(x.category = round(x)) ->
Z
我们可以很容易地计算(和绘制)分位数：
library(ggplot2)
浏览 1提问于2018-06-27得票数 2
回答已采纳
1回答
如何在字符向量中找到一个常见的短语。例如，下面有字符向量，我想确定Foo Bar 1在2&3中是常见的，Foo Bar 2在4和5中是常见的，我不知道我要找的是Foo Bar 1和Foo Bar 2。
样本输入是
a <- c("index", "bla Foo Bar 1", "blah Foo Bar 1",
"blaa Foo Bar 2", "blahh Foo Bar 2")
所需的输出如下所示
output <- list(`Foo Bar 1` = c(2, 3),
浏览 4提问于2014-08-20得票数 1
回答已采纳
我使用R，我有一个data.frame，它包含数值变量和分类变量。TR是我的data.frame的名字。
我设法看到了输出：
for(i in 1:ncol(TR)){ print( is.factor(TR[,i])==TRUE )}
但是，我没有成功地将这些输入到像向量一样的可用输出中：
type <- for(i in 1:ncol(TR)){ print( is.factor(TR[,i])==TRUE )}
返回NULL。
浏览 4提问于2015-03-05得票数 0
回答已采纳
我有一个名为mouse.data的数据框架，包含三列:特征值、DualEigenvalues和实验。这个问题与DualEigenvalues数据无关，因此可以忘记。
我们进行了5个实验，并利用每个实验的数据计算了14个特征值。因此，该数据帧的前14行是第一实验的14个特征值，实验条目的值为1，第二14行为第二实验的14个特征值，实验条目的值为2等。
然后，我将绘制每个成对实验的特征值，下面是代码的一个示例：
eigen.1 <- mouse.data$Eigenvalues[mouse.data$Experiment == 1]
eigen.2 <- mouse.data$Eige
浏览 10提问于2020-11-15得票数 0
回答已采纳
扫码
添加站长 进交流群
领取专属 10元无门槛券
手把手带您无忧上云
相关资讯
热门标签
云服务器
ICP备案
对象存储
即时通信 IM
实时音视频活动推荐
腾讯云开发者
