이런 질문을 남겨도 되나 죄송하긴하지만...R을 하다가 어떻게 할지 모르겠어서 질문 남깁니다ㅠㅠ!.
첨부한 표와 같이 데이터가 구성되어있다고 하면,
저기서 9가 포함되어 있는 열을 id 기준으로 삭제하려고 하는데, 9가 포함되어 있는 열을 다 지우는게 아니라 숫자가 입력되어 있는 id중 9말고 다른 숫자가 있으면
삭제 하지 않고, 입력되어 있는 값이 9만 있으면 삭제하려고 조건을 주려면 어떻게 해야하나요...?
도움 주시면 감사하겠습니다!
Comment 1
-
cardiomoon
2017.08.01 15:12
No. | Subject | Author | Date |
---|---|---|---|
814 | 교수님 안녕하세요 서버 구축관련하여 질문드립니다. [2] | 우루루루 | 2018.05.11 |
813 | 불충분한 데이터의 생존분석에 관하여 질문드립니다. [2] | fermion503 | 2018.05.14 |
812 | nomogram [5] | 횽횽 | 2018.05.16 |
811 | WebR관련 문의드립니다. [1] | neurojang | 2018.05.17 |
810 | 설명 변수 고르기에 대해서.. [2] | 짱이야 | 2018.05.25 |
809 | 인류 역사상 최고의 천재였다는 남자.jpg | 소꿈노리 | 2018.05.25 |
808 | 선생님 책으로 공부중인데..질문있습니다. [1] | jsus | 2018.05.26 |
807 | 안녕하세요 공부하던 중 질문드립니다. [1] | Ikarus86 | 2018.05.27 |
806 | 범주형변수와 비정규분포 연속형 변수 간 관계를 볼때 이변량 상관관계 분석이 가능한지요? [1] | 아라리 | 2018.05.30 |
805 | 교수님 안녕하세요 질문이 있습니다 [1] | 세발낙지 | 2018.06.03 |
804 | Hodges-Lehman estimator [1] | 김밥친구 | 2018.06.04 |
803 | 단독망에서 패키지 실행 질문있습니다. [1] | 김지은22 | 2018.06.05 |
802 | shiny 한글 문제 문의드립니다. [3] | suny | 2018.06.07 |
801 | 정회원 서버 접속이 안되네요 [1] | iamswchoi | 2018.06.09 |
800 | MetaAnalyiss를 다루고 있는 책이 있는지요? [2] | 에구머니나 | 2018.06.11 |
799 | 고수분들의 도움이 필요합니다!!!! [2] | 강구몬 | 2018.06.13 |
798 | ggkm download [1] | yongjuncha | 2018.06.13 |
797 | 건강 두뇌 몸에 좋은 좋은글 한번씩 읽고들가세요 ^^ | 송유나 | 2018.06.16 |
796 | ROC 커브 분석 관련 질문 드립니다. [1] | odd82 | 2018.06.30 |
795 | 교수님 univariate, multivariate analysis 관련하여 질문드립니다. [2] | 우루루루 | 2018.07.03 |
특정조건을 만족하는 Row 삭제
먼저 예제 데이터를 만들어 data.csv에 저장하였습니다. 이 파일을 읽어 data에 저장합니다.
data=read.csv("test.csv")
data
ID a b c d e f g
1 101 NA NA NA NA NA NA NA
2 102 9 10 NA NA NA NA NA
3 103 NA 9 NA NA NA NA NA
4 104 NA NA 9 9 NA NA NA
5 105 NA NA 1 8 9 NA NA
6 106 NA NA NA NA NA NA NA
7 107 NA 2 NA NA NA NA NA
8 108 NA NA 4 7 NA NA 9
다음으로 x라는 벡터를 읽어 NA값을 제외한 후 x에 9만 포함되어 있으면 TRUE, 9 이외에 다른 값이 있으면 FALSE를 반환하는 함수를 만듭니다.
seek9only=function(x){
x=x[!is.na(x)]
if(length(unique(x))!=1) result<-FALSE
else if(unique(x)==9) result<-TRUE
result
}
apply 함수를 이용해 data의 열을 기준으로 이 함수를 적용시킵니다.
select<-apply(data,2,seek9only)
select
ID a b c d e f g
FALSE TRUE FALSE FALSE FALSE TRUE FALSE TRUE
원하는 데이터는 다음과 같이 고르시면 됩니다.
data1<-data[!select]
data1
ID b c d f
1 101 NA NA NA NA
2 102 10 NA NA NA
3 103 9 NA NA NA
4 104 NA 9 9 NA
5 105 NA 1 8 NA
6 106 NA NA NA NA
7 107 2 NA NA NA
8 108 NA 4 7 NA