Hi,
The expected output is not clear.
dat1<- read.table(text="ID diag1 diag2 diag3 proc1 proc2 proc3
1 k23 i269 j123 u123 u456 u123
2 k69 i80 u456 z456 z123 z456
3 l91 i801 g678 u456 u123 u123
4 i80 i90 h983 z123 z456 z456",sep="",header=TRUE,stringsAsFactors=FALSE)
vec1<- c("i80","i90","l91")
subset(dat1,diag1%in%vec1|diag2%in%vec1|diag3%in% vec1)
# ID diag1 diag2 diag3 proc1 proc2 proc3
#2 2 k69 i80 u456 z456 z123 z456
#3 3 l91 i801 g678 u456 u123 u123
#4 4 i80 i90 h983 z123 z456 z456
##Creating another data frame with codes and diagnosis
dat2<-data.frame(code=unique(unlist(dat1[,2:4])),diag=c(rep("Broken
finger",2),rep("Broken toe",2),rep("Broken legs",2),"Broken toe",rep("Broken
foot",2),rep("Broken rib",2)),stringsAsFactors=FALSE)
lst1<- lapply(split(dat2,dat2$diag), function(x) {x1<- x$code;x2<-
subset(dat1,diag1%in%x1|diag2%in%x1|diag3%in%x1);cbind(x2,Diag=x$diag)})
lst1
#$`Broken finger`
# ID diag1 diag2 diag3 proc1 proc2 proc3 Diag
#1 1 k23 i269 j123 u123 u456 u123 Broken finger
#2 2 k69 i80 u456 z456 z123 z456 Broken finger
#
#$`Broken foot`
# ID diag1 diag2 diag3 proc1 proc2 proc3 Diag
#1 1 k23 i269 j123 u123 u456 u123 Broken foot
#2 2 k69 i80 u456 z456 z123 z456 Broken foot
#
#$`Broken legs`
# ID diag1 diag2 diag3 proc1 proc2 proc3 Diag
#1 1 k23 i269 j123 u123 u456 u123 Broken legs
#3 3 l91 i801 g678 u456 u123 u123 Broken legs
#$`Broken rib`
# ID diag1 diag2 diag3 proc1 proc2 proc3 Diag
#3 3 l91 i801 g678 u456 u123 u123 Broken rib
#4 4 i80 i90 h983 z123 z456 z456 Broken rib
#$`Broken toe`
# ID diag1 diag2 diag3 proc1 proc2 proc3 Diag
#2 2 k69 i80 u456 z456 z123 z456 Broken toe
#3 3 l91 i801 g678 u456 u123 u123 Broken toe
#4 4 i80 i90 h983 z123 z456 z456 Broken toe
A.K.
Hello.
I have date frame structured like this:
ID diag1 diag2 diag3 proc1 proc2 proc3
1 k23 i269 j123 u123 u456 u123
2 k69 i80 u456 z456 z123 z456
3 l91 i801 g678 u456 u123 u123
4 i80 i90 h983 z123 z456 z456
Each observation has a group of diagnostics codes(diag) and procedure
codes(proc).
A single diagnosis maybe be described by more than one code eg broken toe maybe
coded for by i80,i90,l91 or more.
My aim to subset all rows with any of the codes representing a
single diagnosis. So i would like to use multiple values (i80,i90,l91=
broken toe) applied to specific columns, ie diag1,2 and 3 to isolate
those rows which contain any of the specified codes.
Your help would be greatly appreciated.
______________________________________________
R-help@r-project.org mailing list
https://stat.ethz.ch/mailman/listinfo/r-help
PLEASE do read the posting guide http://www.R-project.org/posting-guide.html
and provide commented, minimal, self-contained, reproducible code.
