File:2010 canterbury aftershocks by depth.svg

From Wikimedia Commons, the free media repository
Jump to navigation Jump to search

Original file(SVG file, nominally 578 × 434 pixels, file size: 46 KB)

Captions

Captions

Add a one-line explanation of what this file represents

Summary[edit]

Description
English: Plot of 2010 Canterbury earthquake aftershocks by depth and time.

Author: Tayste Data source: GeoNet (NZ) License: GNU public domain, free content Software: R

Source code

# Plot of 2010 Canterbury earthquake aftershocks by depth and time.
# Author: Tayste
# License: GNU public domain, free content
# Software: R
#
# Data from GeoNet (New Zealand)
#   earthquakes.csv is the file returned by a query to:
#   http://magma.geonet.org.nz/resources/quakesearch/
#   Choose output format: CSV (Time, location, z, mag)

library(RSvgDevice)

quakes = read.csv('earthquakes.csv',row.names=NULL) # R gets confused by extra empty column (?)
names(quakes) = c(names(quakes)[-1],"QuakeTime") # Try to adjust for that.
stopifnot(all(quakes$ORI_YEAR == 2010)) # Check column names aligned with data
quakes$QuakeTime = with(quakes, ISOdatetime(ORI_YEAR, ORI_MONTH, ORI_DAY, ORI_HOUR, ORI_MINUTE, ORI_SECOND, tz="UTC"))
attr(quakes$QuakeTime,"tzone") = "NZ"

`%inrange%` <- function (x, limits) x >= limits[1] & x <= limits[2]
chch = subset(quakes, QuakeTime >= as.POSIXct("2010-09-04") & LONG %inrange% c(172,174) & LAT %inrange% c(-45,-42))

devSVG('2010_canterbury_aftershocks_by_depth.svg', width=8, height=6)  # inches
par(mar=c(6,6,3.1,0.2),cex=1)
with(chch, plot(QuakeTime, DEPTH, ylim=rev(range(DEPTH)), pch=16,cex=MAG^2/6, col=rgb(0.1,0.1,0.1,0.2),
  main="Canterbury aftershocks by Depth and Time",ylab="Depth (km)"))
title(sub="Data source: GeoNet")
dev.off()
Date 8 September 2010 (original upload date)
Source Transferred from en.wikipedia to Commons by Logan using CommonsHelper.
Author Tayste at English Wikipedia

Licensing[edit]

Public domain This work has been released into the public domain by its author, Tayste at English Wikipedia. This applies worldwide.
In some countries this may not be legally possible; if so:
Tayste grants anyone the right to use this work for any purpose, without any conditions, unless such conditions are required by law.

Original upload log[edit]

The original description page was here. All following user names refer to en.wikipedia.
  • 2010-09-08 03:41 Tayste 578×434× (46616 bytes) Plot of 2010 Canterbury earthquake aftershocks by depth and time. Author: Tayste Data source: GeoNet (NZ) License: GNU public domain, free content Software: R

File history

Click on a date/time to view the file as it appeared at that time.

Date/TimeThumbnailDimensionsUserComment
current03:18, 6 February 2011Thumbnail for version as of 03:18, 6 February 2011578 × 434 (46 KB)File Upload Bot (Magnus Manske) (talk | contribs) {{BotMoveToCommons|en.wikipedia|year={{subst:CURRENTYEAR}}|month={{subst:CURRENTMONTHNAME}}|day={{subst:CURRENTDAY}}}} {{Information |Description={{en|Plot of 2010 Canterbury earthquake aftershocks by depth and time. Author: Tayste Data source: GeoNet (N

There are no pages that use this file.

File usage on other wikis

The following other wikis use this file:

Metadata