子集Data.frame多条件
是指在R语言中，根据多个条件筛选和提取Data.frame（数据框）中的子集。
在R语言中，可以使用逻辑运算符（如"&"和"|"）来组合多个条件。以下是一个示例代码，展示了如何使用多个条件来子集Data.frame：
# 创建一个示例Data.frame
df <- data.frame(
Name = c("Alice", "Bob", "Charlie", "David"),
Age = c(25, 30, 35, 40),
Gender = c("Female", "Male", "Male", "Male"),
Salary = c(50000, 60000, 70000, 80000)
)
# 使用多个条件子集Data.frame
subset_df <- df[df$Age > 30 & df$Gender == "Male", ]
# 打印子集Data.frame
print(subset_df)上述代码中，我们首先创建了一个示例的Data.frame，包含了姓名（Name）、年龄（Age）、性别（Gender）和薪水（Salary）等列。然后，我们使用多个条件来子集Data.frame，筛选出年龄大于30且性别为男性的记录。最后，我们打印出子集Data.frame的内容。
子集Data.frame多条件的应用场景非常广泛，可以用于数据分析、数据清洗、数据筛选等各种数据处理任务中。
腾讯云提供了云计算相关的产品和服务，其中包括云服务器、云数据库、云存储等。您可以通过访问腾讯云官方网站（https://cloud.tencent.com/）了解更多关于腾讯云的产品和服务信息。
相关·内容
我有一个由20个元素组成的向量，我希望只有15个元素被分配给一个新的向量。当我这样做时，R弹出了一个错误，我尝试了不同的组合。我想把元素从6分配到19。
> carbo<-read.csv(file="6cwga", header=TRUE, sep=",")
> carbo2 <- carbo[-1,-2,-3,-4,-5,,-20]
Error in `[.data.frame`(carbo, -1, -2, -3, -4, -5, , -20) :
unused arguments (-4, -5, , -20)
> c
浏览 8提问于2017-12-12得票数 0
回答已采纳
假设我想合并两个data.frames，但是其中一些列是多余的(相同的)。我如何合并这些data.frames，但删除冗余列？
X1 = data.frame(id = c("a","b","c"), same = c(1,2,3), different1 = c(4,5,6))
X2 = data.frame(id = c("b","c","a"), same = c(2,3,1), different2 = c(7,8,9))
merge(X1,X2, by="id", al
浏览 4提问于2014-03-18得票数 2
回答已采纳
1回答
我有一个数据帧列表：
d1<-data.frame(a=rnorm(5), b=rep(2006, times=5), cc=c(1:5))
d2<-data.frame(a=rnorm(5), b=rep(2007, times=5), cc=c(1:5))
d3<-data.frame(a=rnorm(5), b=c(2005:2009), cc=c(1:5)) #data frame with only one 2007 value
d4<-data.frame(a=rnorm(5), b=rep(2007, times=5), cc=c(1:5))
my
浏览 0提问于2016-03-01得票数 2
回答已采纳
给定以下向量来构建数据帧： set.seed(1)
x <- sample( LETTERS[1:4], 100, replace=TRUE)
y <- runif(100,0,100)
df <- data.frame(x,y) 如果可能的话，我希望有一个干净的代码与循环或apply或任何其他方法，以子集的data.frame通过不同的条件为每个水平的因子x。例如： level A y >30 | y <20
level B y >21 | y <12
level C y >42 | y <21
level D y >58
浏览 27提问于2019-01-25得票数 1
回答已采纳
1回答
我有以下两个数据帧
d1 <- data.frame(chr = c("chr1","chr2","chr2"), pos = c(11, 15,21), type = c("type1","type2","type1"))
> d1
chr pos type
1 chr1 11 type1
2 chr2 15 type2
3 chr2 21 type1
d2 <- data.frame(chr = c("chr1","c
浏览 0提问于2019-07-30得票数 0
1回答
我正在尝试从数据帧中进行随机采样，其中采样取决于已经采样的项的属性。在下面的代码中，我尝试从"snr“中采样一项，然后是与第一个采样的"snr”相对应的随机“正确”值。然后，我想根据“正确”的值来采样一个更大或更小的"snr“值。这个过程应该重复' y‘次，并显示长度为y的两个向量"snr“和”times“的输出。
目前，如果函数正常工作，我的R窗口就会停止响应，并且永远不会停止，否则我会收到各种错误。
snr=c(2,4,6,2,4,6,2,4,6,2,4,6);correct=c(0.2,0.8,0.3,0.7,0.4,0.6,1,1,0,0.1,0
浏览 0提问于2016-03-10得票数 0
我有这样的DF：
ID_A <- c(NA,NA,132,NA,NA,NA,248,NA)
ID_B <- c(132,248,248,381,248,290,290,132)
entry <- c(1,2,2,3,4,5,5,6)
df <- data.frame(ID_A,ID_B,entry)
我希望添加一个结果列，如下所示：
df$result <- c(NA,NA,1,NA,NA,NA,4,NA)
对于每一行(如果ID_A不是NA )，我希望在条目col中找到相应的值，其中: 1) ID_A匹配ID_B，2) ID_A的entry列是最大值，其值不大于我
浏览 0提问于2018-08-03得票数 1
回答已采纳
1回答
我很难用条件分裂。
我有两个条件：
Order | Output name | Condition
1 | Status column completed |(Status) == "Completed"
2 |Default | (Status) == "Completed" && (Status) == "Incomplete"
在我的第一个订单上，在status列上，所有已完成的状态都将在我的暂存表上进行，而在我的第二
浏览 0提问于2016-03-15得票数 0
回答已采纳
我有一个包含列表列v2的数据帧。 ? 数据源有一些问题，我不会在这里重述。为了解决这个问题(未显示)，我想在列表列v2中删除变量超过4个的df中的行。 df <- structure(list(v1 = c("a", "b", "c"),
v2 = list(
structure(
list(
v3 = c(1:4),
浏览 18提问于2019-01-23得票数 1
回答已采纳
1回答
我试图在匹配的基础上更新lapply中更高范围内的变量(lapply)。不过，我不太清楚更新这些值的语法，目前我用NA覆盖了以前存在的任何值：
lapply(1:22, function(i){
in.name<-paste("/data/mdp14aps/ld/chr", i, ".ld", sep="")
out.name<-paste("/data/mdp14aps/R/ldatachr", i, ".rda", sep="")
ldata<-read.csv(i
浏览 2提问于2015-06-10得票数 1
回答已采纳
3回答
我有一个数据帧列表： df1 <- data.frame(c(1:5), c(6:10))
df2 <- data.frame(c(1:7))
df3 <- data.frame(c(1:5), c("a", "b", "c", "d", "e"))
my_list <- list(df1, df2, df3) 从my_list中，我想提取只有2列(df1和df3)的数据帧，并将它们放入一个新列表中。
浏览 7提问于2021-11-01得票数 2
1回答
我有一堆PDF，我想搜索一下，以便快速找到与我的研究相关的表格和图表。
#I load the following libraries
library(pdfsearch)
library(tm)
library(pdftools)
#I assign the directory of my PDF files to the path where they are located
directory <- '/References'
#and then I search the directory for the keywords "table", &
浏览 2提问于2019-05-16得票数 1
回答已采纳
我正在尝试编写一个公式，将A列中的所有数据提取出来，但删除那些包含括号的数据，希望输出结果如图2所示。
📷
📷
浏览 0提问于2022-12-05得票数 0
如果列组等于2，并且在列OBS中出现最大值，则我试图根据合并的条件在列ID中找到相应的元素。
如何在R中完成这一任务？
这是我的数据集：
ID <- as.factor(c("A","B","C","D","E","F"))
OBS <- c(1,3,2,8,3,10)
GROUP <- as.factor(c(1,1,1,2,2,2))
df <- data.frame(ID,OBS,GROUP)
非常感谢。
浏览 5提问于2016-04-22得票数 0
回答已采纳
我希望更改除特定列之外的所有列的dataframe中的所有值。我该怎么做？
问题1:我的下面的代码将在任何时候找到13的地方更改dataframe中的所有值。但我不想更改C列。
df <- data.frame(list(A=c(12,14,13), B=c(16,13,18)),c=c(13,20,21))
df[df == 13]<-NA
print(df)
我也试过这样做：
df <- data.frame(list(A=c(12,14,13), B=c(16,13,18)),c=c(13,20,21))
df[df[,1:ncol(df)-1] == 13]<-
浏览 1提问于2017-07-17得票数 2
回答已采纳
3回答
我正在尝试在特定列的数据序列列表中过滤某些内容。通常情况下，使用dplyr跨一个数据帧，我将使用：
#creating dataframe
df <- data.frame(a = 0:10, d = 10:20)
# filtering column a for rows greater than 7
df %>% filter(a > 7)
我尝试在一个列表中使用以下方法来完成这个任务：
# creating list
x <- list(data.frame(a = 0:10, b = 10:20),
data.frame(c = 11:20, d = 21:
浏览 6提问于2020-05-14得票数 2
回答已采纳
我一直在使用这种数据来评估我的毕业论文中的一些股票
library(quantmod)
getSymbols("NOK",from="2012-01-01")
data<-NOK
p1<-4
dC<-data[,4]
dO<-data[,1]
emaC<-EMA(dC,n=p1)
w1<-1.1
Profit_L_1<-((lag(dC,-1)-lag(dO,-1))/(lag(dO,-1)))*100
Profit_L_2<-((lag(dC,-2)-lag(dO,-1))/(lag(dO,-1)))*100
浏览 2提问于2014-06-28得票数 1
3回答
我有以下数据：
a <- data.frame(X1="A", X2="B", X3="C", X4="D", X5="0",
X6="0", X7="0", X8="0", X9="0", X10="0")
基本上它是一个1行X10列data.frame。
生成的data.frame应该将a的列元素作为行而不是列。a中任何等于"0"的列都不应该出现在新的data.frame中。为了
浏览 1提问于2020-03-30得票数 0
回答已采纳
1回答
我一直在学习和理解，只有在前面(或全部)列有谓词时，才能使用索引。现在，令我惊讶的是，我注意到在下面的查询中使用了GiST指数。为什么会这样呢？这是GiST索引的一个特殊特性吗？
CREATE TABLE t1 (
i INT,
j INT,
k INT
);
INSERT INTO t1
SELECT i, j, k
FROM GENERATE_SERIES(1, 100) AS i,
GENERATE_SERIES(1, 100) AS j,
GENERATE_SERIES(1, 100) AS k;
CREATE I
浏览 0提问于2020-07-12得票数 5
回答已采纳
我有一个带有每小时值的data.frame列，如果它们的顺序至少是六个连续的负数，那么希望计数所有的负值。
示例：
df <- data.frame(Values=c(-2, 2, 3, 4,-1,-1,-2,-3,
-1,-1,-1, 5, 4, 2,-4,-2,
-3,-4,-1, 3, 4, 4,-3,-1,
-2,-2,-3,-4))
预期的结果将是13，因为中间的连续否定序列只包含五个否定，因此不算在内。
浏览 3提问于2015-11-02得票数 0
回答已采纳
1回答
从这篇How to add the results of applying a function to an existing data frame?开始 library (tidyverse)
library (epitools)
# here's my made up data
DISEASE = c("Marco Polio","Marco Polio","Marco Polio","Marco Polio","Marco Polio",
"Mumps"
浏览 49提问于2019-03-25得票数 0
回答已采纳
从几天开始，我一直在寻找在R中管理数据的方法。我有相同的个体集合(n=5013)，结构如下:两个非对称邻接矩阵(m1和m2) (n×n方阵，其中所有个体组成矩阵的行和列)和一个数据框架(df)，其中包含我的个体集合(df$N)和一个变量(df$V)。
我正在寻找在m2的单元格值的函数中使用变量df$V (行和cols的不同条件/变量值)和子集m1 (或识别无效大小写)对矩阵进行子集的方法。
下面的示例说明了我的问题：
# N are individuals. Two matrices (m1 and m2) and a dataframe (df) with a variable (df$V)
浏览 0提问于2016-08-18得票数 0
回答已采纳
假设我有这样的数据：
n <- 100
set.seed(123)
df <- data.frame(
num1 = rnorm(n),
num2 = sample(1:4, n, replace = TRUE),
char = sample(c("Green", "Red", "Blue"), n, replace = TRUE),
fac = factor(sample(c("Green", "Red", "Blue"), n, replac
浏览 0提问于2018-01-15得票数 1
回答已采纳
2回答
add_index :microposts, [:user_id, :created_at]
我读了一下迈克尔·哈特尔的“铁路报”，注意到他使用的是一种叫做多键索引的东西。我知道它意味着Active Record同时使用两个键，但我不太确定使用多个键索引的优缺点。
如果有人能给出答案，我将非常感激。
浏览 6提问于2013-02-13得票数 11
回答已采纳
4回答
如何根据其他列的值对列进行重新编码？假设我有下面的数据帧，我想重新编码df$Col3，这样如果df$Col1 == x和df$Col2 == a，值就是0。
> df <- data.frame(a=c(rep("x",3),rep("y",3),rep("x",4)),letters[c(1:5,3,4:1)],1:10)
> names(df)<-c("Col1","Col2","Col3")
> df
Col1 Col2 Col3
1 x a
浏览 3提问于2013-04-12得票数 2
回答已采纳
我想根据存储在另一个data.frame中的下标对data.frame进行子集。
因此，例如，如果我有以下data.frame：
set.seed(1)
x <- rnorm(5)
df <- data.frame(x,x*x, x*2, x/2)
df
x x...x x...2 x.2
1 -0.6264538 0.39244438 -1.2529076 -0.31322691
2 0.1836433 0.03372487 0.3672866 0.09182166
3 -0.8356286 0.69827
浏览 0提问于2019-01-09得票数 2
回答已采纳
1回答
我的数据框架中有一列是字符列表。这是列categories
str(df)
Classes ‘tbl_df’, ‘tbl’ and 'data.frame': 4 obs. of 3 variables:
$ categories:List of 4
..$ : chr "Tex-Mex" "Mexican" "Fast Food" "Restaurants"
..$ : chr "Hawaiian" "Restaurants" "Barbeque"
浏览 0提问于2017-11-29得票数 1
回答已采纳
我有一个10科尔和大约700 K行的data.frame。
我希望使用对(data.frame)函数来显示列值的成对散点图。没有必要(或可行)绘制每个图中的所有700 K行，所以我想选择一个随机子集，例如2或3K (一些小数目)要绘制的行。
请有人协助我的选择，选择一个小的随机子集的数据框架。我觉得这两种
data.frame的X%的随机子集或
每一行都能用我知道我见过但找不到代码片段..。
谢谢
浏览 4提问于2013-11-08得票数 1
考虑一个您想要过滤的简单数据框架：
df <- data.frame(x = c('', '', NA, NA ))
> df
x
1
2
3 <NA>
4 <NA>
正如预期的那样，subset(df, x =='')的结果是：
x
1
2
然而，令我非常惊讶的是，subset(df, x !='')的结果是：
[1] x
<0 rows> (or 0-length row.names)
有人能解释为什么''在与==一起使用
浏览 1提问于2020-12-22得票数 1
回答已采纳
作为一个例子，我想从这个数据框架中提取唯一的值。
test <- data.frame(position=c("chr1_13529", "chr1_13529", "chr1_13538"),
genomic_regions=c("gene", "intergenic", "intergenic"))
生成的数据框架应该只给我
chr1_13538 intergenic
基本上，我想提取具有唯一位置的行。
浏览 5提问于2020-05-06得票数 1
回答已采纳
我正在使用一段时间内人口的数据，并希望确定人口达到零的第一年。我的数据如下所示：
population<- c(500,50,25,2,0,0,0,0)
year<-(1:8)
dat<-data.frame(year,population)
我想生成一个显示人口首次达到零的年份的值，因此在本例中将是5。我尝试使用if和ifelse函数，以便当人口大于零时为NA，当人口大于零时等于' year‘，但这只是开始按顺序打印年份数字，而不是选择对应于第一个0人口行的年份。它也有点困惑，因为有多个零人口年份，但我只对第一个年份感兴趣。
任何关于如何做得更好并使其工作的建议/想
浏览 29提问于2020-05-26得票数 1
回答已采纳
我读过，看过，但我一点也不聪明：
，它到底做了什么(相对于传入一个列名)，它的优势是什么？
add_index :resources, [:one, :two]
浏览 5提问于2013-08-20得票数 6
回答已采纳
1回答
所以，我有一个人类变体的.tsv文件。我需要将这个文件中的所有行都存储在一个data.frame中，并将它们保存在另一个文件中。我正在尝试使用这个脚本：
data = read.table(file.choose(), sep = '\t', header = TRUE)
variant = readline("Insert variant:")
store <- data.frame(matrix(NA, ncol = ncol(data)))
colnames(store) = colnames(data)
for (i in 1:nrow(data)
浏览 1提问于2018-02-21得票数 0
回答已采纳
有什么问题吗：
PID <- character()
COVERAGE <- integer()
coverage <- data.frame(c(PID, COVERAGE))
coverage["PID"] <- laf[1:2,"PID"];
print(coverage);
给出0行
[1] c.PID..COVERAGE. PID
<0 rows> (or 0-length row.names)
鉴于：
print(laf[1:2,"PID"])
给出带有PID数据的2行
[
浏览 1提问于2016-08-25得票数 0
1回答
我想按某个列和子集进行排序，这是一个多列的dataframe，但是所使用的命令无效。
print(df[order(df$x) & df$x < 5,])
这并不是对结果进行排序。
为了调试这一点，我生成了一个带有1列的测试数据，但是这种“简化”产生了意想不到的效果。
df <- data.frame(x = sample(1:50))
print(df[order(df$x) & df$x < 5,])
这并不是对结果进行排序，所以我觉得我已经重现了这个问题，而是用了更简单的数据。
将流程分解为第一次排序，然后重新设置使我发现排序在本例中不生成datafr
浏览 4提问于2017-03-08得票数 1
回答已采纳
我想将一个变量(将列名作为字符串保存)作为参数传递给data.table。我该怎么做呢？
考虑下面的data.table：
myvariable <- "a"
myvariable_2 <- "b"
DT = data.table(ID = c("b","b","b","a","a","c"), a = 1:6, b = 7:12, c = 13:18)
DT
# ID a b c
# 1: b 1 7 13
# 2: b 2 8 14
浏览 2提问于2016-11-03得票数 1
回答已采纳
1回答
这个问题已经问了很多次了，但所建议的解决办法对我来说是行不通的。
d <- data.frame(var1 = c("ab","ac", "ad"), var2 = c("1.1","2.6","0"),var3 = c("1","5.4","0"))
ff <- as.numeric(as.character(d[ ,2:3]))
fg <- lapply(d[ ,2:3],as.numeric)
fh <- as.nume
浏览 2提问于2020-05-11得票数 1
回答已采纳
我有一个简单的数据框架：
a=data.frame(first=c(1,2,3),second=c(3,4,5),third=c('x','y','z'))
我试图返回一个数据框架，其中包含仅用于第一列和第二列的列的含义。我一直这样做：
apply(a[,c('first','second')],2,mean)
返回适当的输出：
first second
2 4
但是，我想知道我是否可以使用函数by来完成这个任务。我试过这个：
by(a, c("first", "se
浏览 2提问于2014-04-27得票数 0
回答已采纳
2回答
用r中的索引替换多列数据帧
、、、、
我正在尝试用索引替换一个大型数据框中的多列。到目前为止，我想要/已经完成的工作是将this post和this post结合起来。为了清楚起见，让我提供示例。 以下是采用dput格式的简化示例数据： DF <-
structure(list(Fruits = structure(c(1L, 3L, 4L, 2L),
.Label = c("Apples", "Avocado", "Oranges", "Pineapple"),
class = "factor"), Weight2 = c(20L, 15
浏览 18提问于2020-04-18得票数 1
回答已采纳
3回答
我创建了一个简单的data.frame：
data.frame(a = rep(LETTERS[1:4], each=4),
b = c(sample(6,4),sample(6,4),sample(6,4),sample(6,4)))
a b
1 A 6
2 A 4
3 A 2
4 A 3
5 B 5
6 B 1
7 B 3
8 B 6
9 C 2
10 C 3
11 C 5
12 C 1
13 D 4
14 D 5
15 D 1
16 D 3
如何才能只保留data.frame中的那些行，其中b列中的数字出现在a列的所有4个字母中？因此，例如
浏览 0提问于2012-10-12得票数 2
回答已采纳
1回答
我尝试将新列mutate到data.frame。当V列顺序从递减变为递增时，我在mutate中使用diff函数将它们归类到新列H中。
V <- c(seq(30,-10,-10),seq(-10,30,10))
gr = rep(seq(1,3),each=10)
df <- data.frame(V,gr)
library(dplyr)
diff_df <- df%>%
group_by(gr)%>%
mutate(H=ifelse(diff(V)<0,"back","forward"))
然而，得到的错误
浏览 2提问于2016-02-03得票数 8
回答已采纳
1回答
我不是ggplot2包的专家。我有一个子集选择问题。
这是我的代码，用来生成这种图形。
g <- ggplot(merged_data,aes_string(x=Order,fill=var.y)) +
scale_y_continuous(expand = c(0.05,0)) +
xlab(paste("Order","Total number of sequences",sep=" - ")) +
ggtitle(main.str) +
浏览 0提问于2012-12-13得票数 0
回答已采纳
我有一个聚合表：
> aggdata[1:4,]
Group.1 Group.2 x
1 4 0.05 0.9214660
2 6 0.05 0.9315789
3 8 0.05 0.9526316
4 10 0.05 0.9684211
当我有Group.1和Group.2的值时，如何选择x值？
我试过了：
aggdata[aggdata[,"Group.1"]==l && aggdata[,"Group.2"]==lamda,"x"
浏览 1提问于2009-10-08得票数 24
回答已采纳
我想在ALIST中重新绑定所有的a数据帧--我该怎么做？
alist <- list(a = data.frame(1:3),
b = data.frame(4:6),
a = data.frame(7:9))
(ALIST <- list(alist, alist, alist))
浏览 1提问于2013-05-14得票数 3
回答已采纳
2回答
df <- data.frame(x = 1:7, y = c(NA, NA, 5, 10, NA, 20, 30))
从df中，我希望删除y中包含NA的行，其条件是该行中的x值小于行中的x值，并具有最小的y值以获得此数据帧。
data.frame(x = 3:7, y = c(5, 10, NA, 20, 30))
dlypr()解决方案更好！
浏览 1提问于2021-07-22得票数 1
回答已采纳
样本数据
df = structure(list(class = structure(c(4L, 1L, 1L, 3L, 2L), .Label = c("apple",
"berry", "grape", "orange"), class = "factor"), value = c(NA,
NA, 1, 1, NA)), .Names = c("class", "value"), row.names = c(NA,
-5L), class = "data.frame
浏览 1提问于2015-07-16得票数 5
回答已采纳
在一次面试中，面试官问了这个问题。我知道关联，我们使用.Please帮助理解hibernate中的聚合和委托来实现关联。
浏览 3提问于2019-01-17得票数 0
回答已采纳
我在R中遇到了一个命令，我很难理解它，也许有人能启发我？
sample[, AGG := Reduce(`+`, .SD), .SDcols = agg]
sample[, AGG_NEW := AGG]
subset = seq_len(nrow(sample))
sample[subset, val := (AGG_NEW >= (value) - 1)) | val ]
我到目前为止的解释是：
在data.table sample中，取所有行subset (已定义)，在这些行中变异列val，然后我不确定发生了什么.
|是做什么的？
浏览 2提问于2020-04-17得票数 3
回答已采纳
我正在尝试使用列名的间隔对data.frame的列进行子集。
例如，data.frame A
A
ID1 ID2 ID3
1 5 01901
2 5 01902
例如，我希望用A的列创建变量b：
b=A[,"ID2":"ID3"]
"ID1":"ID3“中的错误: NA/NaN参数:警告消息: 1:在[.data.frame中(A，"ID1":"ID3")：NAs被胁迫引入2：[.data.frame(A，"ID1":"ID3")：NAs由强制引入
我想要
浏览 3提问于2016-06-05得票数 4
回答已采纳
3回答
是什么让我那闪闪发亮的小应用程序不显示我的图形呢？当我使用基本绘图函数将renderPlot()中的代码替换为一个示例时，它就结合在一起了。我在Windows上使用RStudio，Rv3.0.1，输出到Chrome浏览器。
ui.r
library(ggplot2)
cities <- c("Anchorage","Fairbanks","Juenau","Wasilla","Homer")
years <- 2003:2013
Table <- "Capital Assets"
浏览 0提问于2013-08-04得票数 11
回答已采纳
扫码
添加站长 进交流群
领取专属 10元无门槛券
手把手带您无忧上云
相关资讯
热门标签
云服务器
ICP备案
实时音视频
对象存储
即时通信 IM活动推荐
腾讯云开发者
