R Notebook

library(RCurl)
library(XML)
library(tidyr)
library(dplyr)
library(RColorBrewer)
library(ggplot2)

web<- "https://www.bls.gov/opub/ted/2018/payroll-employment-up-by-200000-in-january-2018.htm"
webcode<- getURL(web)
webhtml<- htmlParse(webcode, asText = T)
tables<- readHTMLTable(webhtml, header =  T, colClasses = c("character", "FormattedNumber" , "FormattedNumber", "FormattedNumber", "FormattedNumber" , "FormattedNumber", "FormattedNumber","FormattedNumber"))
tables<- tables[[1]]
tables<- tbl_df(tables)
tables<- tables[,c(1:2)]
tables

tables<- tables[order(tables$`12-month change(p)`),]
tables

ggplot(tables, aes(y= reorder(Industry,`12-month change(p)`) , x = `12-month change(p)`)) + 
  geom_point(col = "darkgreen" , size = 2) + 
  theme_classic() + 
  geom_vline(xintercept = 0 ,col = "darkgrey"  , alpha = 0.6) + 
  scale_x_continuous(breaks = seq(-100000,500000, 100000)) + 
  labs(title = "12-month changes in nonfarm payroll employment compared in January 2018", y = "Industry") +
  geom_segment(aes(yend=Industry), xend=0, colour="grey50")

谁能告诉我横坐标的数字怎么改？