Warning: file_get_contents(/data/phpspider/zhask/data//catemap/4/r/79.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中的数据框中的值创建列_R - Fatal编程技术网

使用R中的数据框中的值创建列

使用R中的数据框中的值创建列,r,R,我有一个数据集: 我想创建一个具有日期值的列。在本例中,日期为201201,但excel可能有不同的日期。因此,我不想通过写201201来创建日期,而不是在列和日期之间创建链接。输出应该如下所示: 非常感谢您能为我提供的任何帮助。好的,您在R中有一个数据框,类似于Excel中的工作表。我将创建一个用于演示目的: > data <- data.frame(Name=c("A","B","C"), books=c(3,5,8)) > data Name books 1

我有一个数据集:

我想创建一个具有日期值的列。在本例中,日期为201201,但excel可能有不同的日期。因此,我不想通过写201201来创建日期,而不是在列和日期之间创建链接。输出应该如下所示:


非常感谢您能为我提供的任何帮助。

好的,您在R中有一个数据框,类似于Excel中的工作表。我将创建一个用于演示目的:

> data <- data.frame(Name=c("A","B","C"), books=c(3,5,8))
> data
  Name books
1    A     3
2    B     5
3    C     8
>数据
名牌
1 A 3
2 B 5
3 C 8
现在我将创建类“Date”的标量,类似于单元格D1中的值:

> Date <- as.Date("2001-12-20")
> Date
[1] "2001-12-20"
>日期
[1] "2001-12-20"
现在,我将在与此日期对应的数据中创建一个新列:

> data$Date <- Date
> data
  Name books       Date
1    A     3 2001-12-20
2    B     5 2001-12-20
3    C     8 2001-12-20
>数据$Date数据
姓名簿日期
1 A 3 2001-12-20
2 B 5 2001-12-20
3 C 8 2001-12-20
这就是你的想法吗

编辑:要仅从Excel文件“Report.xlsx”中的单元格D1导入日期值(要自动执行自动化操作,以减少人为干预):

>库(readxl)
>报表%>%变化(今天=截止日期(今天,格式=“%y%m%d”))

请使用dput显示示例而不是图像请使用
dput添加数据并显示相同的预期输出。请阅读有关的信息以及如何给出答案。谢谢你提供的信息。嗨,爱德华,谢谢你的回复。这不是我想要的。我想让该列接受单元格D1中的任何值。在本例中,它是201201,但我将收到的下一个报告将在单元格D1中显示201202。因此,我不想手动填充该列,而不是创建与列和单元格D1的链接。你知道吗?再次感谢。我不知道你在问什么。您希望在R中或Excel中执行此操作??在R中。我希望自动化清理和转换过程。我可以手动创建一个日期列,这将中断自动化过程。我想输入到列中的值在一个单元格中,因此我想将单元格值“复制”到整个新列中。因此,使用readxl包中的read_excel函数将D1单元格导入到R Date对象中,并指定range=“D1”。您可能需要使用as.Date(d1,format=“%y%m%d”)或输入日期的任何格式对其进行正确格式化。感谢您的回复!对不起,我不明白你的意思。这一过程似乎可以在读取数据的过程中完成。是否有代码导入D1单元格?再次感谢!
> library(readxl)
> Report <- read_excel("E:/Book1.xlsx", range="D1", col_names="today", col_types = "text")
> Report %>% mutate(today=as.Date(today, format="%y%m%d"))