Warning: file_get_contents(/data/phpspider/zhask/data//catemap/4/r/76.json): failed to open stream: No such file or directory in /data/phpspider/zhask/libs/function.php on line 167

Warning: Invalid argument supplied for foreach() in /data/phpspider/zhask/libs/tag.function.php on line 1116

Notice: Undefined index: in /data/phpspider/zhask/libs/function.php on line 180

Warning: array_chunk() expects parameter 1 to be array, null given in /data/phpspider/zhask/libs/function.php on line 181
R 当日期在x轴上且状态为时,提取数据帧中变量第一次出现的行_R_Economics - Fatal编程技术网

R 当日期在x轴上且状态为时,提取数据帧中变量第一次出现的行

R 当日期在x轴上且状态为时,提取数据帧中变量第一次出现的行,r,economics,R,Economics,编辑: 例如: 我正在努力寻找美国不同县自第一例新冠病毒-19病例以来的天数。我需要找到该县第一例确诊病例,然后让R告诉我每个FIPS代码是在哪一天确认的第一例。我正在做3141个县的所有工作。日期从1月22日到4月30日 编辑3: 观测数量为314200,包含3个变量 t.first <- data_long[match(unique(data_long$Counts, data_long$Counts))]` t。首先您可以在计数>0的位置保留行,然后为每个FIPS选择第一行 lib

编辑: 例如:

我正在努力寻找美国不同县自第一例新冠病毒-19病例以来的天数。我需要找到该县第一例确诊病例,然后让R告诉我每个FIPS代码是在哪一天确认的第一例。我正在做3141个县的所有工作。日期从1月22日到4月30日

编辑3: 观测数量为314200,包含3个变量

t.first <- data_long[match(unique(data_long$Counts, data_long$Counts))]`

t。首先您可以在
计数>0的位置保留行,然后为每个
FIPS
选择第一行

library(dplyr)
df %>%
  filter(Counts > 0) %>%
  group_by(FIPS) %>%
  slice(1L)

#   FIPS Date   Counts
#  <int> <chr>   <int>
#1  1001 Jan_23      1
#2  1003 Jan_22      1
#3  1004 Jan_24      1
库(dplyr)
df%>%
过滤器(计数>0)%>%
分组依据(FIPS)%>%
切片(1L)
#FIPS日期计数
#      
#1001年1月23日1
#2 1003年1月22日1
#3 1004年1月24日1

我们可以使用
基本R

subset(df1[df1$Counts >0,], !duplicated(FIPS))
#  FIPS   Date Counts
#2 1003 Jan_22      1
#4 1001 Jan_23      1
#9 1004 Jan_24      1
数据
df1根据您的描述,我觉得
slice\u head
功能在安排好dataRonak Shah后可能会有所帮助谢谢您的提醒,我刚刚更改了它slice功能的1L部分是什么-为什么不只是slice(1)?这是一样的
1L
是整数,
1
是数字。如果我使用的是一个大型数据集,其中的数据集名为“data\u long”,我将在哪里插入该数据集以获得该数据集中所有第一次出现的1。如果在
df\u long
中有相同的列和列名,请使用
df\u long
而不是
df
。是的,但之前我有3142个观察值,现在我只有2844个观察值,这个代码是否清除了一些N/A数据?
subset(df1[df1$Counts >0,], !duplicated(FIPS))
#  FIPS   Date Counts
#2 1003 Jan_22      1
#4 1001 Jan_23      1
#9 1004 Jan_24      1
df1 <- structure(list(FIPS = c(1001L, 1003L, 1004L, 1001L, 1003L, 1004L, 
1001L, 1003L, 1004L, 1001L, 1003L, 1004L), Date = c("Jan_22", 
"Jan_22", "Jan_22", "Jan_23", "Jan_23", "Jan_23", "Jan_24", "Jan_24", 
"Jan_24", "Jan_25", "Jan_25", "Jan_25"), Counts = c(0L, 1L, 0L, 
1L, 5L, 0L, 6L, 10L, 1L, 8L, 12L, 3L)), class = "data.frame", 
row.names = c(NA, 
-12L))