R 기초 ggplot2 그리기

 R 문제 알려주세요ㅠㅠㅠㅠㅠ   

네이버 질문에 올라 왔던 것이다. 


안녕하세요~
아래의 R 문제를 모르겠습니다ㅠㅠ 

year<-2015:2026

pop<-c("51,014","51,245","51,446","51,635","51,811","51,973","52,123","52,261","52,388","52,504","52,609","52,704")

df<-data.frame(year,pop)

ggplot(data = df, aes(x=year, y=pop))+geom_line(col="red")


꼭 ggplot을 사용해서 선그래프를 그려야하거든요. 

그런데 위와 같이 써 보았는데 그래프가

안나오네요ㅠ

뭐가 잘못된건지 모르겠습니다ㅠㅠㅠ

알려주시면 감사하겠습니다!


아래와 같이 풀었다. 

library(dplyr)
library(ggplot2)

  year <-2015:2026

# year 데이터를 년도 +01+01 로 바꾸기    
  for(i in 1:length(year)){
  
   if(i == 1){
     year_init = paste0(year[i],"-01","-01")
   }else{
     year_init = c(year_init, paste0(year[i],"-01","-01"))
   }

}   

# year를 일자 형태로 변환 하기 
  year <- as.Date(year_init)


  pop<-c("51,014","51,245","51,446","51,635","51,811","51,973",
         "52,123","52,261","52,388","52,504","52,609","52,704")

  df <- data.frame(year, pop)

# pop를 숫자 형태로 바꾸기 
  df$pop <-  as.integer(gsub(",","",df$pop))

# 그래프 그리기 
  df %>% 
    ggplot(aes(year, pop)) +
    geom_line(col="red")

ggplot2 그리기






 데이터의 문자열과 숫자열을 바꾸어서 문제를 해결 하였다. 

댓글 없음:

댓글 쓰기

공무 스케줄 AI Agem에 대한 생각

     지금 상황이 아비 규환이다.  어느 부서든 회사가 인수 합병되고 나서  투자를 기획하는 경영기획이 특히 않이 정신이 없고, 우리부서도 전부 미국 필리 조선소로 인원이 나가 있어,  사실상 10년 이상 고기량자는 거의 없다.   우리부서에 남아...