代码之家 › 专栏 › 技术社区 › Nathan123

如何根据r中元素的第一位保留行?

Nathan123 · 技术社区 · 6 年前

我有以下数据框

crime<-c(71040,142320,71013,71013,72113)
coded.month<-c("2018-10","2018-10","2018-10","2018-10","2018-10")
df<-data.frame(coded.month,crime)
  coded.month  crime
1     2018-10  71040
2     2018-10 142320
3     2018-10  71013
4     2018-10  71013
5     2018-10  72113

基本上,我想分离出犯罪率第一位数所在的所有行 7

  coded.month  crime
1     2018-10  71040
3     2018-10  71013
4     2018-10  71013
5     2018-10  72113

我该怎么办?

5 回复 | 直到 6 年前

Julius Vainora 6 年前

你可以用 substr

df[substr(df$crime, 0, 1) == 7, ]
#   coded.month crime
# 1     2018-10 71040
# 3     2018-10 71013
# 4     2018-10 71013
# 5     2018-10 72113

akrun 6 年前

我们也可以使用 %/%

df[df$crime%/% 10000 == 7, ]
#    coded.month crime
#1     2018-10 71040
#3     2018-10 71013
#4     2018-10 71013
#5     2018-10 72113

moodymudskipper 6 年前

使用 startsWith :

subset(df, startsWith(as.character(crime),"7"))
#   coded.month crime
# 1     2018-10 71040
# 3     2018-10 71013
# 4     2018-10 71013
# 5     2018-10 72113

Chris Ruehlemann 6 年前

通过使用 grepl() df$crime 以“7”开头的值:

df_new <- df[grepl("^7", df$crime, perl = T),]
df_new
  coded.month crime
1     2018-10 71040
3     2018-10 71013
4     2018-10 71013
5     2018-10 72113

Kamil BartoÅ 6 年前

这还涉及将值(隐式)转换为字符串,但它可以:

 df[grep("^7", df$crime), ]

编辑:纯数值解:

df[floor(df$crime /  10^floor(log10(df$crime))) == 7, ]

推荐文章

Amp · 使用R ggplot2删除geom_radial中axis.line和panel.border之间的空格

3 月前

Hard_Course · 用另一列中的值替换行的最后一个非NA条目

3 月前

Mark R · 使用geom_sf()删除地球仪上不需要的网格线

3 月前

Joe · 根据对工作日和本周早些时候的日期的了解,找到一个日期

3 月前

Ben · 统计向量中的单词在字符串中出现的频率

3 月前

TheCodeNovice · R中符号格式的尾随零和其他问题[重复]

3 月前

katefull06 · 在R中使用terra修改范围时,会为单独的SpatRaster重写范围

4 月前

dez93_2000 · 在R管道子功能中引用管道对象的当前状态

4 月前

accibio · 在ggplot2中为同一变量创建两个连续的颜色渐变比例

4 月前

Mankka · 如何在Ggplot2中绘制均匀的径向图

4 月前