R语言中一列数据为空值，想用另外一列数据来替换

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

送您一个全额奖学金名额~ !

立即领取

感谢您参与论坛问题回答

经管之家送您两个论坛币！

+2 论坛币

请问一下：

有两列数据old1,old2,想生成一列新数据，逻辑为：如果old1列数据为空，则取old2列的数据，否则取old1列数据。逻辑很简单，但是总报错，请大神帮忙解答。

假设源数据为下：想根据Old1与old2这两列生成一列新数据new列。

代码为：

data1<-read.table("路径"，header=TRUE,blank.lines.skip=FALSE,sep="")

n=nrow(d1)

for(i in 1:n)

if(data1$old1==“”)  data1$new<-data1$old2  else data1$new<-data1$old1

结果显示的是数字，就是level水平的值，求解怎么破？

另外if…else语句换行总提示“意外的“else” 在“else”中”，太奇怪了。

ID	old1	old2	new
1	q		q
2	a		a
3	z	d	z
4		c	c
5
6		d	d
7
8
9	c		c
10		e	e

扫码加我 拉你入群

请注明：姓名-公司-职位

以便审核进群资格，未注明则拒绝

分享0 收藏1 回帖

一定要用循环吗，我觉得按照你的逻辑，只要先把new赋值old1，然后再把空的地方赋值old2就好了。

1. new <- old1
   
2. ids <- which(is.na(new))
   
3. new[ids] <- old2[ids]

复制代码

欢迎使用Markdown编辑器

经管之家：Do the best economic and management education！

你好！ 这是你第一次使用 Markdown编辑器 所展示的欢迎页。如果你想学习如何使用Markdown编辑器, 可以仔细阅读这篇文章，了解一下Markdown的基本语法知识。

功能快捷键

撤销：Ctrl/Command + Z
重做：Ctrl/Command + Y
加粗：Ctrl/Command + B
斜体：Ctrl/Command + I
标题：Ctrl/Command + Shift + H
无序列表：Ctrl/Command + Shift + U
有序列表：Ctrl/Command + Shift + O
检查列表：Ctrl/Command + Shift + C
插入代码：Ctrl/Command + Shift + K
插入链接：Ctrl/Command + Shift + L
插入图片：Ctrl/Command + Shift + G

合理的创建标题，有助于目录的生成

直接输入1次#，并按下space后，将生成1级标题。
输入2次#，并按下space后，将生成2级标题。
以此类推，我们支持6级标题。

如何改变文本的样式

强调文本 强调文本

加粗文本 加粗文本

标记文本

删除文本

引用文本

H₂O is是液体。

2¹⁰ 运算结果是 1024.

插入链接与图片

链接: 经管之家官网.

图片:

带尺寸的图片:

如何插入一段漂亮的代码片

选择一款你喜欢的代码片高亮样式，下面展示同样高亮的 代码片.

def get_abs(x):
    if not isinstance(x, (int, float)):
        raise TypeError('bad operand type')
    if x >= 0:
        return x
    else:
        return -x

生成一个适合你的列表

• 项目
  • 项目
    • 项目

1. 项目1
2. 项目2
3. 项目3

• 计划任务
• 完成任务

创建一个表格

一个简单的表格是这么创建的：

项目	Value
电脑	$1600
手机	$12
导管	$1

设定内容居中、居左、居右

使用:---------:居中
使用:----------居左
使用----------:居右

第一列	第二列	第三列
第一列文本居中	第二列文本居右	第三列文本居左

SmartyPants

SmartyPants将ASCII标点字符转换为“智能”印刷标点HTML实体。例如：

TYPE	ASCII	HTML
Single backticks	'Isn't this fun?'	‘Isn’t this fun?’
Quotes	"Isn't this fun?"	“Isn’t this fun?”
Dashes	-- is en-dash, --- is em-dash	– is en-dash, — is em-dash

创建一个自定义列表

Markdown

Text-to-HTML conversion tool

Authors

John

Luke

如何创建一个注脚

一个具有注脚的文本。¹

注释也是必不可少的

Markdown将文本转换为 HTML。

KaTeX数学公式

您可以使用渲染LaTeX数学表达式 KaTeX:

Gamma公式展示 $\Gamma(n) = (n-1)!\quad\forall n\in\mathbb N$ 是通过欧拉积分

$\Gamma(z) = \int_0^\infty t^{z-1}e^{-t}dt\,.$

你可以找到更多关于的信息 LaTeX 数学表达式[here][1].

新的甘特图功能，丰富你的文章

• 关于 甘特图 语法，参考 [这儿][2],

UML 图表

可以使用UML图表进行渲染。 Mermaid. 例如下面产生的一个序列图：:

这将产生一个流程图。:

• 关于 Mermaid 语法，参考 [这儿][3],
  [1]: http://meta.math.stackexchange.com/questions/5020/mathjax-basic-tutorial-and-quick-reference
  [2]: https://mermaidjs.github.io/
  [3]: https://mermaidjs.github.io/
  [4]: http://adrai.github.io/flowchart.js/

---

1. 注脚的解释 ↩︎

owenqi 发表于 2019-10-26 01:34
一定要用循环吗，我觉得按照你的逻辑，只要先把new赋值old1，然后再把空的地方赋值old2就好了。

您好，非常感谢您愿意解答我的问题。

我不是一定要用循环，能解决问题就好。
现在这个循环，我不知道问题在哪里？
其次，我试了一下您提供的方法，结果也是有点问题，代码不认为空值就是缺失值，很苦恼
> d0<-read.table("D:\\software\\R\\1.csv",header =TRUE,blank.lines.skip = FALSE,sep = "," )
> d0$new<-d0$old1
> ids<-which(is.na(d0$new))
> d0$new[ids]<-d0$old2[ids]
> d0
   ID old1 old2 new
1   1    q        q
2   2    a        a
3   3    z    d   z
4   4         c   
5   5              
6   6         d   
7   7              
8   8              
9   9    c        c
10 10         e   

owenqi 发表于 2019-10-26 01:34
一定要用循环吗，我觉得按照你的逻辑，只要先把new赋值old1，然后再把空的地方赋值old2就好了。

我第一次用这个，不知道“点踩”是什么鬼？就看一下向下的箭头随便点了一下，才知道点错了，不好意思，无意冒犯，真的不会用

owenqi 发表于 2019-10-26 01:34
一定要用循环吗，我觉得按照你的逻辑，只要先把new赋值old1，然后再把空的地方赋值old2就好了。

您好，我按照您说的试着跑了一下，结果如下：
该代码无法识别空值，认为空值并不是缺失值，不知道该如何处理。
另外，我之前写的那个循环有什么问题吗？不知道为什么出不来？

> d0<-read.table("D:\\software\\R\\1.csv",header =TRUE,blank.lines.skip = FALSE,sep = "," )
> d0$new<-d0$old1
> ids<-which(is.na(d0$new))
> d0$new[ids]<-d0$old2[ids]
> d0
   ID old1 old2 new
1   1    q        q
2   2    a        a
3   3    z    d   z
4   4         c   
5   5              
6   6         d   
7   7              
8   8              
9   9    c        c
10 10         e   

这要看你原来的数据中空值是用什么表示的了，我写的那个代码，空的地方我就用NA代替了。
你原来那个循环

1. for(i in 1:n)
   
2. if(data1$old1==“”)  
   
3.    data1$new<-data1$old2  
   
4. else data1$new<-data1$old1

复制代码

我想，没有‘i’出现在循环中吧，怎么知道你是对那个数据进行操作呢。

duzongyan908 发表于 2019-10-25 20:16
请问一下：有两列数据old1,old2,想生成一列新数据，逻辑为：如果old1列数据为空，则取old2列的 ...

ifelse函数或者直接索引（要注意两边都要加索引）

df <- structure(list(A = c(56L, NA, NA, 67L, NA),
                     B = c(75L, 45L, 77L, 41L, 65L),
                     Year = c(1921L, 1921L, 1922L, 1923L, 1923L)),.Names = c("A", "B", "Year"), class = "data.frame", row.names = c(NA, -5L))

df$A <- ifelse(is.na(df$A), df$B, df$A)