R : plot 함수와 함께 루프 문을 사용하여 4 개의 그래프를 그리는 방법

debugcn 에 게시 Dev

Warhawk1987

나는 데이터가 여기에있다, 대한 플롯을 만들고 다음 코드가 데이터

data<-lidar
x<-lidar$range
y<-lidar$logratio
h<-20
par(mfrow=c(2,2))

r<-max(x)-min(x)
bn<-ceiling(r/h)
binwidth=c(5,10,30,100)
  
  
#Creates a matrix to handle the data of same length
W<-matrix(nrow=length(x),ncol=bn)
for (j in 1:bn){
  for (i in 1:length(x)){
    if (x[i]>=(min(x)+(j-1)*h) && x[i]<=(min(x)+(j)*h)){W[i,j]=1}
    else {W[i,j]=0}
  }
}

#Sets up the y-values of the bins
fit<-rep(0,bn)
for (j in 1:bn){
  fit[j]<- sum(y*W[,j]/sum(W[,j]))
}

#Sets up the x values of the bins
t<-numeric(bn)
for (j in 1:bn){
  t[j]=(min(x)+0.5*h)+(j-1)*h
}

plot(x,y)
lines(t,fit,type = "S", col = 1, lwd = 2)

이것은 페이지의 왼쪽 모서리에 단일 플롯을 만듭니다.

par(mfrow=c(2,2))

h 값 5,10,30,100 (변수 binwidth에서 제공하는 값)을 사용하여 한 페이지에 4 개의 그래프를 그리는 for 문을 만드는 방법이 있습니까? 그래서 수동으로 h 값을 변경할 필요가 없습니다. 새 플롯을 재현 할 때마다 최종 결과가 다음과 같이 나타납니다.

기본적으로 저는 항상 h를 변경하지 않고 4 개의 결과를 모두 플로팅하는 다른 for 문을 사용하여 다른 h 값으로 코드를 4 번 실행하고 싶습니다. 어떤 도움이나 힌트라도 대단히 감사합니다.

앨런 카메론

다음은 URL에서 직접 데이터를로드 한 다음 apply패밀리를 사용하여 다른 플롯을 반복 하는 완전히 재현 가능한 예제입니다.

lidar <- read.table(paste0("http://www.stat.cmu.edu/%7Elarry",
                           "/all-of-nonpar/=data/lidar.dat"),
                    header = TRUE)

par(mfrow = c(2, 2))

breaks <- lapply(c(5, 10, 30, 100), function(i) {
                   val <- seq(min(lidar$range), max(lidar$range), i)
                   c(val, max(val) + i)})

means <- lapply(breaks, function(i) {
            vals <- tapply(lidar$logratio, 
                    cut(lidar$range, breaks = i, include.lowest = TRUE), mean)
            c(vals[1], vals)})

invisible(mapply(function(a, b) {
  plot(lidar$range, lidar$logratio)
  lines(a, b, type = "S", lwd = 2)
  }, breaks, means))

^{reprex 패키지 (v0.3.0)에 의해 2020-09-25에 생성됨}

이 기사는 인터넷에서 수집됩니다. 재 인쇄 할 때 출처를 알려주십시오.

침해가 발생한 경우 연락 주시기 바랍니다[email protected] 삭제

에서 수정2021-04-5

몇 마디 만하겠습니다

0리뷰

로그인참여 후 검토

Related 관련 기사

기사

R : plot 함수와 함께 루프 문을 사용하여 4 개의 그래프를 그리는 방법

R : plot 함수와 함께 루프 문을 사용하여 4 개의 그래프를 그리는 방법

두 개의 선 그래프를 함께 결합하는 방법

for in 및 if 문을 루프와 함께 사용하는 방법

입력 함수와 함께 for 루프를 사용하는 방법

SCSS의 글꼴 URL을 다른 Flask 응용 프로그램 루트와 함께 사용하는 방법

R 루프 함수를 사용하여 행렬을 만드는 방법

루프 함수를 사용하여 R의 값을 연결하는 방법은 무엇입니까?

클래스의 asyncio 및 기존 이벤트 루프와 함께 Python의 웹 소켓을 사용하는 방법

R 코드 : 루프 내에서 '할당'함수를 사용하여 속성을 n 개의 개체로 설정하는 방법

두 개의 foreach와 하나의 for 루프를 함께 루프하는 방법이 있습니까?

plot_ly r 그래프에서 숫자 변수를 문자로 사용하는 방법

for 루프와 함께 awk를 사용하는 방법?

r에서 for 루프와 함께 if 문을 사용하여 결과 반환

여러 선 그래프를 함께 결합하는 방법

for 루프와 aysnc 물을 함께 사용하는 가장 좋은 방법

postgreSQL을 사용하여 각 결과에 대한 개수와 함께 여러 결과를 하나의 열로 그룹화하는 방법

비동기 함수 Swift와 함께 루프에서 디스패치 그룹을 사용하는 방법은 무엇입니까?

R Shiny-dateRangeInput 및 selectInput 함수를 사용하여 반응 형 막대 그래프를 만드는 방법

json 데이터와 함께 jquery Ajax를 사용하여 for 루프 내부에서 태그를 래핑하는 방법은 무엇입니까?

Mips, lw와 함께 오프셋을 사용하여 하나의 .word에서 두 번째 값을 얻는 방법

for 루프와 함께 ParamSets를 사용하는 PowerShell 함수

R에서 for 루프를 사용하여 일련의 그래프를 만드는 방법

JUNG과 함께 이분 그래프를 투영하는 방법

"for"루프와 "if"루프를 함께 사용하여 xml 문서에 xml 요소가 있는지 확인하는 방법

프로그래밍 할 때 여러 그룹과 함께 dplyr :: group_by를 사용하는 방법

R의 names ()와 같이 역함수 개념을 구현하는 프로그래밍 언어

gcc와 함께 pari 라이브러리를 사용하여 C 프로그램을 실행하는 방법은 무엇입니까?

R에서 두 그래프의 pdf (확률 밀도 함수)를 그리는 방법

트리거 또는 저장 프로 시저와 함께 두 개의 업데이트 문을 사용하는 방법

R의 나머지 행을 요약 함수와 함께 상위 n 개 행을 결합하는 방법