Please, be patient because it takes about 30sec to open….<\/p>\n Greetings,<\/p>\n Marko<\/p>\n <\/p>\n <\/p>\n","protected":false},"excerpt":{"rendered":" Earth quakes of the last 30 days These example come from here. I follow instruction how to plot earthquage data into world map between 24.5. – 23.6.2012. My first test is not succesfull, so I make my copy paste tricks. Final result show now “right” magnitude. ## Plot world wide earth quakes of the last […] Read More<\/a><\/p>\n","protected":false},"author":1,"featured_media":0,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"gallery","meta":[],"categories":[22,23],"tags":[32,35,48],"_links":{"self":[{"href":"https:\/\/science.ekqvist.fi\/blogi\/wp-json\/wp\/v2\/posts\/107"}],"collection":[{"href":"https:\/\/science.ekqvist.fi\/blogi\/wp-json\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/science.ekqvist.fi\/blogi\/wp-json\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/science.ekqvist.fi\/blogi\/wp-json\/wp\/v2\/users\/1"}],"replies":[{"embeddable":true,"href":"https:\/\/science.ekqvist.fi\/blogi\/wp-json\/wp\/v2\/comments?post=107"}],"version-history":[{"count":0,"href":"https:\/\/science.ekqvist.fi\/blogi\/wp-json\/wp\/v2\/posts\/107\/revisions"}],"wp:attachment":[{"href":"https:\/\/science.ekqvist.fi\/blogi\/wp-json\/wp\/v2\/media?parent=107"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/science.ekqvist.fi\/blogi\/wp-json\/wp\/v2\/categories?post=107"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/science.ekqvist.fi\/blogi\/wp-json\/wp\/v2\/tags?post=107"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}![\"\"](\"http:\/\/science.ekqvist.fi\/blogi\/wp-content\/uploads\/2012\/06\/magnitude_over_4_2305_240612-300x188.jpg\" "\\"magnitude_over_4_2305_240612\\"")
<\/a><\/p>\n## Plot world wide earth quakes of the last 30 days with magnitude >= 4.0
\nlibrary(googleVis)
\nlibrary(XML)
\n## Get earthquake data of the last 30 days
\n## That is ok, put for some reason I do not get right magnitude into picture.
\neq=readHTMLTable(readLines(\"http:\/\/www.iris.edu\/seismon\/last30.html\"))
\neq <- eq[[2]] ## extract the eq table
\nsummary(eq)
\n#something wrong with this\u00a0 last30 file
\n#I have to copy and paste web-page data into Notepad and saved this into file earthquake.txt
\n#eq <- read.table(\"j:\/todo\/R_geodata\/earthquake.txt\", header=TRUE, sep=\"\\t\", na.strings=\"NA\", dec=\".\", strip.white=TRUE)
\n#WEB-server datafile note I change MAG into magni
\neq <- read.table(\"http:\/\/ekqvist.goeuropeinfo.com\/rbloggerqvist\/data\/earthq\/earthquake.txt\", header=TRUE, sep=\"\\t\", na.strings=\"NA\", dec=\".\", strip.white=TRUE)<\/code><\/p>\n# lat and lon must be the same variable
\neq$loc=paste(eq$LAT, eq$LON, sep=\":\") ## create a lat:long location variable<\/code><\/p>\n# making geomap
\nearthq <- gvisGeoMap(eq, locationvar=\"loc\", numvar=\"magni\", hovervar=\"DATE\", options=list(dataMode=\"markers\"))<\/code><\/p>\n#plotting results into html file
\n#plot(earthq)
\ncat(earthq$html$chart, file=\"j:\/todo\/R_geodata\/earthq.html\")<\/code><\/p>\nBy clicking this link you will see the result file<\/a>.<\/code><\/p>\n