这是非常初级的,但是我发现的例子更加复杂。下面的代码是我正在使用的
con <- dbConnect(odbc::odbc(),"Database 1")
top20empdb<- dbGetQuery(con, "SELECT
area,name,cityP,Primnaics,busdesc,privgovsta,empsizval,empsizrng,releaseno FROM empdb where
releaseno = '211'")
dbDisconnect(con)
首先,我需要将列cityP重命名为City,将empsizrng列重命名为“就业范围”。接下来(这可能是另一个问题)是让他们仅凭经验得出前20名。这里是否需要top或bottom命令,如果需要,是在select之后还是在它内部?
这是的一个选项tidyverse
,其中rename
的列和通过top_n
与wt
'empsizval'一起使用来获得前20行
library(dplyr)
out <- top20empdb %>%
rename(cityP = City, EmploymentRange = empsizrng) %>%
group_by(area) %>%
top_n(20, wt = empsizval)
本文收集自互联网,转载请注明来源。
如有侵权,请联系 [email protected] 删除。
我来说两句