이런 질문을 남겨도 되나 죄송하긴하지만...R을 하다가 어떻게 할지 모르겠어서 질문 남깁니다ㅠㅠ!.
첨부한 표와 같이 데이터가 구성되어있다고 하면,
저기서 9가 포함되어 있는 열을 id 기준으로 삭제하려고 하는데, 9가 포함되어 있는 열을 다 지우는게 아니라 숫자가 입력되어 있는 id중 9말고 다른 숫자가 있으면
삭제 하지 않고, 입력되어 있는 값이 9만 있으면 삭제하려고 조건을 주려면 어떻게 해야하나요...?
도움 주시면 감사하겠습니다!
Comment 1
-
cardiomoon
2017.08.01 15:12
No. | Subject | Author | Date |
---|---|---|---|
833 | 비밀번호 찾기 오류. [2] | ezra006 | 2022.12.24 |
832 | 샤이니 앱에서 SQL 명령어 사용 방법 [2] | 김브링이 | 2015.05.06 |
831 | ROC 커브에 대한 다른 질문입니다. [1] | Victo | 2016.01.15 |
830 | ROC 커브 분석에 대하여 문의 드립니다. [1] | DOC | 2020.10.23 |
829 | 케이스 선택에 관하여 질문이 있습니다.. [1] | selteen | 2017.05.02 |
828 | 설명 변수 고르기에 대해서.. [2] | 짱이야 | 2018.05.25 |
827 | Web으로 하는 R meta 서비스는 더 이상 안하는 건가요? [1] | 묵사마 | 2020.04.09 |
826 | Box plot 그래프를 그리고 싶은데요. [2] | 알은어려워 | 2018.12.25 |
825 | SEM에서 path analysis후 moderation effect보는 과정에 대해 여쭙습니다. [2] | fascinate23 | 2018.01.26 |
824 | 교수님, 메타분석에 대한 질문 몇가지 올립니다. | SOL | 2017.10.26 |
823 | heatmap [2] | zkbi | 2020.05.26 |
822 | 생존분석에서 생존표... [2] | 파랑파랑하늘 | 2016.08.02 |
821 | PSM의 matching 방법 기술에 대한 질문입니다. [1] | ng2o321 | 2020.12.01 |
820 | 데이타 업로드후 작업이 안됩니다. T.T [1] | 유로정 | 2016.04.22 |
819 | 성향점수분석에서 caliper 설정 [1] | alse | 2017.06.20 |
818 | ROC curve 수정 관련해서 문의드립니다. [2] | hamdgogo | 2020.05.01 |
817 | matching을 하려고 합니다. | 권혜미 | 2016.12.02 |
816 | R 문제가 도저히 안풀려요.. [1] | 자하연미필 | 2021.10.09 |
815 | 표만들기 오류 [1] | 김밥친구 | 2019.03.03 |
814 | knit PDF 및 ztable에서 표 출력에 대하여 질문드립니다. [5] | zepiros15 | 2018.12.22 |
특정조건을 만족하는 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