2016-09-30 5 views
0

나는 S.O. 이것에 대해서는 & 구글. 많은 답변이 있지만 실제 문제를 해결하는 데 도움이되는 것을 찾지 못하는 것 같습니다 저는입니다.개체를 찾을 수 없음 오류

library(RNeo4j) 
    library(tidyverse) 
    library(stringr) 
    library(MASS) 

### uncomment the next 2 lines to reconnect to server & re-query the database 
# setwd("~/Desktop/Dashrock/Neo4j") 
# source("N4j_connect_query.R") 

df <- naics_jll %>% 
    group_by(m.mkt,c1.name) %>% 
    summarize(n1_4_pct =sum(n.n1_4)/sum(n.est), 
       n5_9_pct =sum(n.n5_9)/sum(n.est), 
       n10_19_pct =sum(n.n10_19)/sum(n.est), 
       n20_49_pct =sum(n.n20_49)/sum(n.est), 
       n50_99_pct =sum(n.n50_99)/sum(n.est), 
       n100_249_pct =sum(n.n100_249)/sum(n.est), 
       n250_499_pct =sum(n.n250_499)/sum(n.est), 
       n500_999_pct =sum(n.n500_999)/sum(n.est), 
       n1000_pct =sum(n.n1000)/sum(n.est), 
       n1000_1_pct =sum(n.n1000_1)/sum(n.est), 
       n1000_2_pct =sum(n.n1000_2)/sum(n.est), 
       n1000_3_pct =sum(n.n1000_3)/sum(n.est), 
       n1000_4_pct =sum(n.n1000_4)/sum(n.est), 
       ap = sum(n.ap), 
       emp = sum(n.emp), 
       num_firms = sum(n.est)) 

g <- ggplot(df) 

    g + 
    geom_point(aes(x=c1.name, y=n100_249_pct, color = factor(m.mkt)), na.rm = TRUE) + 
    facet_grid(. ~ m.mkt) + 
    labs(x = "Industry Code (NAICS)", y = "Btwn 100-249 Employees (as % of All Companies)", title = "Company Profiles") + 
    theme(axis.text.x = element_text(angle=90, hjust = .5, vjust=.5, size=5)) 

이 잘 작동 :

여기 내 코드입니다.

Error in factor(n100_249_pct) : object 'n100_249_pct' not found

무엇이 잘못 되었나요 :

ggplot output

나는 (내가 정말 원하는이다) geom_bargeom_point에서 변경하면 문제가있다, 나는이 오류의 다른 버전을 얻을 : 여기에 출력이다 ?

+1

[재현 가능한 예] (http://stackoverflow.com/questions/5963269/how-to-make-a-great-r-reproducible-example)를 제공 할 데이터 및/또는 코드를 포함시킬 수 있습니까?)? 또한 ... 단지 추측 ... 당신은'geom_bar (stat = "identity")'...를 시도 했습니까? –

+0

감사합니다. stat = "identity"고정되었습니다. – Steve

답변

1

Ben의 제안에 따라 geom_bar()에 대한 매개 변수로 stat = "identity"을 사용하십시오.

편집 (2017년 1월 29일) : ggplot 버전 2.2.0 geom_bar(stat = "identity")에 대한 짧은 손으로 새로운 기능 geom_col() 있습니다.

+0

geom_bar (stat = "identity")''를 사용하여이 대답을 잘라내는 것이 도움이 될 수 있습니다. - 읽기 쉽고 달리 놓치기를 바라지 않습니다. .. –

관련 문제