/ Published in: R
Expand |
Embed | Plain Text
Copy this code and paste it in your HTML
rm(list=ls()) setwd(/Users/jonathancoleman/Dropbox/R) library(XML) climate_url <- "http://www.climate-zone.com/climate/united-states/north-carolina/raleigh/" # assign URL climate_tables <- readHTMLTable(climate_url) #Read HTML in URL climate_tables <- climate_tables[[13]] #Extract table 13 from URL climate_tables <- climate_tables[-1,] #Delete Row 1 names(climate_tables) <- c("Raleigh Temperature", "Jan", "Feb", "Mar", "Apr", "May", "Jun", "Jul", "Aug", "Sep", "Oct", "Nov", "Dec", "Annual") #Rename headers climate_tables <- climate_tables[-15,] #remove row 15 climate_tables <- climate_tables[-10,] #remove row 10 climate_tables <- climate_tables[-6,] #remove row 6 row.names(climate_tables) <- c("Avg. Temp", "Avg. Max Temp.", "Avg. Min Temp.", "Days with Max Temp >= 90 F", "days with Min Temp Below Freezing", "Raleigh Heating and Cooling", "Heating Degree Days", "Cooling Degree Days", "Raleigh Precipitation (inches)", "Precipitation (inches)", "Days with Precipitation >= 0.01 inches", "Monthly Snowfall (inches)", "Other Raleigh Weather Indicators", "Avg Wind Speed", "Clear Days", "Partly Cloudy Days", "Cloudy Days", "Percent of Possible Sunshine", "Avg. Relative Humidity") #rename rows climate_tables <- climate_tables[,-1] #remove column 1 as.data.frame(climate_tables) #set as data.frame climate_tables <- rnorm(climate_tables, mean = 0) #set means equal to zero
URL: Raleigh_Climate