时间戳

首页 > 解决方案 > 将因子转换为 R 中的日期以创建虚拟变量

r - 将因子转换为 R 中的日期以创建虚拟变量

问题描述

我需要为数据集“县”中的变量“日期”为“2020 年 4 月 11 日之前和之后”创建虚拟变量。数据集中有一百多个日期。我正在尝试使用 as.date 函数将日期从因子转换为日期，但得到 NA。你能帮忙找出我在哪里出错吗？我保留了我创建的另一个虚拟变量以防万一，如果它影响整体结果

counties <- read.csv('C:/Users/matpo/Desktop/us-counties.csv')
str(counties)
as.Date(counties$date, format = '%m/%d/%y')
#create dummy variables forNew York, New Jersey, California, and Illinois
counties$state = ifelse(counties$state == 'New Jersey' & 
               counties$state == 'New York'& counties$state == 'California' & 
               counties$state == 'Illinois', 1, 0)
counties$date = ifelse(counties$date >= "4/11/2020", 1, 0)

str 输出

 $ date  : logi  NA NA NA NA NA NA ...
 $ county: Factor w/ 1774 levels "Abbeville","Acadia",..: 1468 1468 1468 379 1468 1178 379 1468 979 942 ...
 $ state : num  0 0 0 0 0 0 0 0 0 0 ...
 $ fips  : int  53061 53061 53061 17031 53061 6059 17031 53061 4013 6037 ...
 $ cases : int  1 1 1 1 1 1 1 1 1 1 ...
 $ deaths: int  0 0 0 0 0 0 0 0 0 0 ...``

谢谢！

标签： rdummy-variable

解决方案

  1. 您的格式不正确as.Date，您应该使用"%Y"4 位数的年份。

  2. 您需要将值分配回 ( <-) 以使值更改。

  3. "4/11/2020"只是一个字符串，如果要比较日期，则需要将其转换为日期对象。你也可以避免ifelse在这里使用。

尝试 ：

counties$date <- as.Date(counties$date, format = '%m/%d/%Y')
counties$dummy <- as.integer(counties$date >= as.Date('2020-04-11'))

推荐阅读