Data Structure
Networking
RDBMS
Operating System
Java
MS Excel
iOS
HTML
CSS
Android
Python
C Programming
C++
C#
MongoDB
MySQL
Javascript
PHP
Physics
Chemistry
Biology
Mathematics
English
Economics
Psychology
Social Studies
Fashion Studies
Legal Studies
- Selected Reading
- UPSC IAS Exams Notes
- Developer's Best Practices
- Questions and Answers
- Effective Resume Writing
- HR Interview Questions
- Computer Glossary
- Who is Who
Combine two columns by ignoring missing values if exists in one column in R data frame.
To combine two columns by ignoring missing values if exists in one column in R data frame, we can use paste function and is.na function.
For Example, if we have a data frame called df that contains two columns say C1 and C2 where C2 contains some missing values then we can use the below mentioned command to combine C1 and C2 by ignoring missing values in C2 −
cbind(df,Combined=paste(df[,1],replace(df[,2],is.na(df[,2]),"")))
Example 1
Following snippet creates a sample data frame −
x1<-rpois(20,5) y1<-sample(c(NA,2,5),20,replace=TRUE) df1<-data.frame(x1,y1) df1
The following dataframe is created
x1 y1 1 3 2 2 7 2 3 6 5 4 9 5 5 6 NA 6 2 2 7 3 NA 8 5 2 9 6 5 10 7 5 11 6 NA 12 2 5 13 2 2 14 7 5 15 6 5 16 7 2 17 7 NA 18 3 NA 19 4 5 20 6 5
To combine x1 and y1 values on the above created data frame, add the following code to the above snippet −
x1<-rpois(20,5) y1<-sample(c(NA,2,5),20,replace=TRUE) df1<-data.frame(x1,y1) cbind(df1,Combined=paste(df1[,1],replace(df1[,2],is.na(df1[,2]),"")))
Output
If you execute all the above given snippets as a single program, it generates the following Output −
x1 y1 Combined 1 3 2 3 2 2 7 2 7 2 3 6 5 6 5 4 9 5 9 5 5 6 NA 6 6 2 2 2 2 7 3 NA 3 8 5 2 5 2 9 6 5 6 5 10 7 5 7 5 11 6 NA 6 12 2 5 2 5 13 2 2 2 2 14 7 5 7 5 15 6 5 6 5 16 7 2 7 2 17 7 NA 7 18 3 NA 3 19 4 5 4 5 20 6 5 6 5
Example 2
Following snippet creates a sample data frame −
x2<-sample(c(NA,500,450),20,replace=TRUE) y2<-sample(1:1000,20) df2<-data.frame(x2,y2) df2
The following dataframe is created
x2 y2 1 500 389 2 500 164 3 NA 267 4 NA 68 5 NA 294 6 500 26 7 500 740 8 450 913 9 NA 556 10 NA 800 11 450 80 12 500 236 13 500 65 14 NA 316 15 450 248 16 NA 654 17 NA 113 18 500 691 19 NA 496 20 450 391
To combine x2 and y2 values on the above created data frame, add the following code to the above snippet −
x2<-sample(c(NA,500,450),20,replace=TRUE) y2<-sample(1:1000,20) df2<-data.frame(x2,y2) cbind(df2,Combined=paste(df2[,2],replace(df2[,1],is.na(df2[,1]),"")))
Output
If you execute all the above given snippets as a single program, it generates the following Output −
x2 y2 Combined 1 500 389 389 500 2 500 164 164 500 3 NA 267 267 4 NA 68 68 5 NA 294 294 6 500 26 26 500 7 500 740 740 500 8 450 913 913 450 9 NA 556 556 10 NA 800 800 11 450 80 80 450 12 500 236 236 500 13 500 65 65 500 14 NA 316 316 15 450 248 248 450 16 NA 654 654 17 NA 113 113 18 500 691 691 500 19 NA 496 496 20 450 391 391 450
2K+ Views
