File:Jack the ripper rossmo 3.png
Original file (948 × 623 pixels, file size: 1.11 MB, MIME type: image/png)
Captions
Captions
Summary[edit]
| Description |
English: Jack The Ripper canonical five, Rossmo analysis |
| Date | |
| Source | Own work |
| Author | Merikanto |
| Camera location |   | View this and other nearby images on: OpenStreetMap |  |
|---|
Source of location data is
"Jack The Ripper significiant locations"
Map is Leaflet Openstreetmap (OSM)
"R" code to produce the map You must georeference this map with QGIS georeferencer and convert it to lonlat form (EPSG 4326). Convert RGB image to palette imege.
Source of old london map is
1894 Ordnance Survey Map of Whitechapel downloaded from http://www.casebook.org/official_documents/map/images/ord_map_full.jpg
Cropped and annotated with seven red dots to show the location of seven murders attributed to Jack the Ripper
Note: There seems to be errors in some murder site data!
-
- Jack the Ripper, locations
-
- "R" rgeoprofile
- leaflet openstreetmap
-
- 0000.0005 1.8.2021
-
- must do this on first time, if you dop not have Rcpp
- install.packages("Rcpp", repos ="https://ftp.acc.umu.se/mirror/CRAN/")
library(Rcpp)
library(raster)
library(rgeoprofile)
library(leaflet)
library(htmltools)
library(exportwidget)
library(leaflet.minicharts)
library(htmlwidgets)
library(mapview)
library(webshot)
library(magick)
library(knitr)
rina1<-raster("whitechapel_ref4.tif")
raster::crs(rina1) <- sp::CRS("+proj=longlat +ellps=WGS84 +datum=WGS84 +no_defs")
- Originals
- names<-c("Nichols","Eddowes","Kelly","Chapman","Stride")
- lats<-c(51.520036,51.513728, 51.518679,51.520447,51.513729)
- lons<-c(-0.060401,-0.078042,-0.075092,-0.072564,-0.06559)
- ages<-c(43,46,35,47,44)
- dates<-as.Date(c('1888-08-31','1888-09-30','1888-11-09','1888-09-08','1888-09-30') )
- arrempt to correct coords
names<-c("A","B","C","D","E")
lats<-c(51.5203785, 51.5186270, 51.5199207, 51.5137500,51.5137633)
lons<-c(-0.0737000,-0.0752304,-0.0610239,-0.0779247,-0.0657004)
ages<-c(1,2,3,4,5)
dates<-as.Date(c('1888-01-01', '1888-01-01','1888-01-01','1888-01-01','1888-01-01') )
daata<-data.frame(names, ages,dates, lats, lons)
names(daata)<-c("name","age","date","lat","lon")
cgt <- cgt_profile(daata$lat, daata$lon) ## rossmo
- cgt <- linear_profile(daata$lat, daata$lon) ## ok
- cgt <- neg_exp_profile(daata$lat, daata$lon ,method = "CrimeStat") ## ok
- cgt <- norm_profile(daata$lat, daata$lon) # negative
- cgt <- lognorm_profile(daata$lat, daata$lon ) ## nok, too flat
- cgt <- trun_neg_exp_profile(daata$lat, daata$lon ) ## nega, maximal distance
- ok
- cgt <- neg_exp_profile(daata$lat, daata$lon , method = "Dragnet")
- cgt <- neg_exp_profile(daata$lat, daata$lon , method = "Dragnet", buffer = TRUE) ## nega ympyrät
g_map = sp::SpatialPixelsDataFrame(points = cgt[c("lons", "lats")], data = cgt)
g_map <- raster::raster(g_map)
raster::crs(g_map) <- sp::CRS("+proj=longlat +ellps=WGS84 +datum=WGS84 +no_defs")
pal <- colorNumeric(pals::parula(200), raster::values(g_map),
na.color = "transparent")
pallete2<-rev(pals::kelly(2))
pal2 <- colorNumeric(pallete2, raster::values(rina1),
na.color = "transparent")
- pal2 <- colorNumeric(pals::coolwarm(200), raster::values(rina1),
- na.color = "transparent")
- 51.517384, -0.0703541
cgt_map <- leaflet(options = leafletOptions(zoomControl = FALSE) ) %>%
addTiles() %>%
setView(lng = -0.0703541, lat = 51.517384, zoom = 16) %>%
addRasterImage(rina1, colors = pal2, opacity = 0.8) %>%
addRasterImage(g_map, colors = pal, opacity = 0.45) %>%
#addLegend(pal = pal, values = raster::values(g_map), title = 'Score') %>%
#addMarkers(lng=lons,lat=lats,popup=names) %>%
addCircleMarkers(lng = daata$lon, lat = daata$lat, radius = 10, opacity = 1,
stroke = FALSE, fillOpacity = 0.75, weight = 2,
fillColor = "red")
saveWidget(cgt_map , file = "rosmo.html", selfcontained = FALSE)
- saveWidget(cgt_map , file = "rosmo2.html", selfcontained = TRUE)
webshot("rosmo.html", file = "rosmo.png",
cliprect = "viewport")
my_image <- image_read("rosmo.png")
my_svg <- image_convert(my_image, format="svg")
image_write(my_svg, "rosmo0.svg")
mapshot(cgt_map, url = paste0(getwd(), "/map.html"))
## create standalone .png; temporary .html is removed automatically unless
## 'remove_url = FALSE' is specified
mapshot(cgt_map, remove_url = FALSE, file = paste0(getwd(), "/map.pdf"))
Licensing[edit]
- You are free:
- to share – to copy, distribute and transmit the work
- to remix – to adapt the work
- Under the following conditions:
- attribution – You must give appropriate credit, provide a link to the license, and indicate if changes were made. You may do so in any reasonable manner, but not in any way that suggests the licensor endorses you or your use.
- share alike – If you remix, transform, or build upon the material, you must distribute your contributions under the same or compatible license as the original.
File history
Click on a date/time to view the file as it appeared at that time.
| Date/Time | Thumbnail | Dimensions | User | Comment | |
|---|---|---|---|---|---|
| current | 18:00, 1 August 2021 | | 948 × 623 (1.11 MB) | Merikanto (talk | contribs) | Update |
| 15:17, 1 August 2021 |  | 992 × 744 (1.51 MB) | Merikanto (talk | contribs) | Pallete | |
| 15:04, 1 August 2021 |  | 992 × 744 (1.5 MB) | Merikanto (talk | contribs) | Uploaded own work with UploadWizard |
You cannot overwrite this file.
File usage on Commons
There are no pages that use this file.
