下面是一个可重复使用的示例
#load the packages
library(easypackages)
packages("tidyverse","readxl","sf","tmaptools","tmap","lubridate",
"lwgeom","Cairo","nngeo","purrr","scales", "ggthemes","janitor")
polls<-st_as_sf(read.csv(url("https://www.caerphilly.gov.uk/CaerphillyDocs/FOI/Datasets_polling_stations_csv.aspx")),
coords = c("Easting","Northing"),crs = 27700)%>%
mutate(date = sample(seq(as.Date('2020/01/01'), as.Date('2020/05/31'), by="day"), 147))
test_stack<-polls%>%st_join(polls%>%st_buffer(dist=1000),join=st_within)%>%
filter(Ballot.Box.Polling.Station.x!=Ballot.Box.Polling.Station.y)%>%
add_count(Ballot.Box.Polling.Station.x)%>%
rename(number_of_neighbours = n)%>%
mutate(interval_date = date.x-date.y)%>%
subset(select = -c(6:8,10,11,13:18))## removing this comment will summarise the data so that only number of neighbours is returned %>%
distinct(Ballot.Box.Polling.Station.x,number_of_neighbours,date.x)%>%
filter(number_of_neighbours >=2)
polls%>%mutate(id = as.numeric(row_number()))%>% mutate(thing = case_when(id %% 2 == 0 ~ "stuff",
id %% 2 !=0 ~ "type"))->polls
qtm(polls)
tmap_mode("view")
tm_shape(polls) + tm_markers(col = "thing")
tm_shape(polls) + tm_dots(col ="thing", size = 0.75)我想要做的是改变tm_markers的颜色和大小,因为在我想要使用它的东西中,很容易使用不同的颜色标记。
与此相关联的是,当地图模式为"view“并且生成html时,理解标记的聚类是如何工作的。
任何有关tm_marker行为和tm_marker集群的帮助都将是非常棒的。感谢== "MANY!“
发布于 2020-09-02 04:10:52
最后,它被证明比使用标记简单得多。从美学上讲,我不喜欢“标记”,但我确实喜欢“点”,而tm_dots可以让你更容易地对颜色进行排序(或者在我的脑海中它更容易……)。事情是这样的。井。聚类可以应用于点、气泡和tm_symbols。都在这里:https://cran.r-project.org/web/packages/tmap/tmap.pdf (第89/90页)
不管怎样,
tm_shape(polls) + tm_dots(col ="thing", size = 0.75,clustering = T)
这就是答案(对我来说)。我可以通过一个区域进行聚类和着色。
https://stackoverflow.com/questions/63640953
复制相似问题