- html - 出于某种原因,IE8 对我的 Sass 文件中继承的 html5 CSS 不友好?
- JMeter 在响应断言中使用 span 标签的问题
- html - 在 :hover and :active? 上具有不同效果的 CSS 动画
- html - 相对于居中的 html 内容固定的 CSS 重复背景?
我正在尝试创建一张显示美国所有 50 个州的专题 map ,但我无法以可靠的方式重新定位阿拉斯加和夏威夷。我有几个想法,但没有一个能很好地工作。我现在将展示它们。
首先我们需要导入数据;使用 maps
中的数据套餐是不够的,因为它不包括夏威夷和阿拉斯加。
setwd(tempdir())
download.file("https://dl.dropbox.com/s/wl0z5rpygtowqbf/states_21basic.zip?dl=1",
"usmapdata.zip",
method = "curl")
# This is a mirror of http://www.arcgis.com/home/item.html?
# id=f7f805eb65eb4ab787a0a3e1116ca7e5
unzip("usmapdata.zip")
require(rgdal)
all_states <- readOGR("states_21basic/", "states")
require(ggplot2); require(maptools); require(rgeos); require(mapproj);
all_states <- fortify(all_states, region = "STATE_NAME")
现在我们定义一些情节美学:
p <- ggplot() + geom_polygon(
aes(x=long, y=lat, group = group, fill = as.numeric(as.factor(id))),
colour="white", size = 0.25
) + coord_map(projection="azequalarea") +
scale_fill_gradient(limits = c(1,50))
现在我们删除所有背景等,这样当我们重叠非连续状态时它们不会发生冲突:
p <- p + theme(axis.line=element_blank(),
axis.text.x=element_blank(),
axis.text.y=element_blank(),
axis.ticks=element_blank(),
axis.title.x=element_blank(),
axis.title.y=element_blank(),
panel.background=element_blank(),
panel.border=element_blank(),
panel.grid.major=element_blank(),
panel.grid.minor=element_blank(),
plot.background=element_blank())
使用视口(viewport)
AK <- p %+% subset(all_states, id == "Alaska") + theme(legend.position = "none")
HI <- p %+% subset(all_states, id == "Hawaii") + theme(legend.position = "none")
contiguous <- p %+% subset(all_states, id != "Alaska" & id != "Hawaii")
grid.newpage()
vp <- viewport(width = 1, height = 1)
print(contiguous, vp = vp)
subvp1 <- viewport(width = 0.25, height = 0.25, x = 0.18, y = 0.33)
print(AK, vp = subvp1)
subvp2 <- viewport(width = 0.12, height = 0.12, x = 0.32, y = 0.27)
print(HI, vp = subvp2)
all_states_AKHImoved <- within(all_states, {
lat[id == "Alaska"] <- lat[id == "Alaska"] - 45
long[id == "Alaska"] <- long[id == "Alaska"] + 40
lat[id == "Hawaii"] <- lat[id == "Hawaii"] + 0
long[id == "Hawaii"] <- long[id == "Hawaii"] + 70
})
p %+% all_states_AKHImoved
最佳答案
以下是如何通过投影和转换来做到这一点。你会需要:
require(maptools)
require(rgdal)
fixup <- function(usa,alaskaFix,hawaiiFix){
alaska=usa[usa$STATE_NAME=="Alaska",]
alaska = fix1(alaska,alaskaFix)
proj4string(alaska) <- proj4string(usa)
hawaii = usa[usa$STATE_NAME=="Hawaii",]
hawaii = fix1(hawaii,hawaiiFix)
proj4string(hawaii) <- proj4string(usa)
usa = usa[! usa$STATE_NAME %in% c("Alaska","Hawaii"),]
usa = rbind(usa,alaska,hawaii)
return(usa)
}
fix1 <- function(object,params){
r=params[1];scale=params[2];shift=params[3:4]
object = elide(object,rotate=r)
size = max(apply(bbox(object),1,diff))/scale
object = elide(object,scale=size)
object = elide(object,shift=shift)
object
}
rgdal
:
us = readOGR(dsn = "states_21basic",layer="states")
usAEA = spTransform(us,CRS("+init=epsg:2163"))
usfix = fixup(usAEA,c(-35,1.5,-2800000,-2600000),c(-35,1,6800000,-1600000))
plot(usfix)
usfixLL = spTransform(usfix,CRS("+init=epsg:4326"))
plot(usfixLL)
ggplot
中的转换。因为我们已经用
spTransform
做到了.
ggplot2
巩固业务。我不确定这对您是否重要,但请注意
usfix
中的状态顺序不同。版本 - 阿拉斯加和夏威夷现在是最后两个州。
关于使用 ggplot2 在美国专题 map 上重新定位阿拉斯加和夏威夷,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/13757771/
以下显示而不是我模板中的字段。 我的模板有 {{ form.state }} 问题是什么? class RegistrationForm(forms.Form): first_name =
所以我有这个正则表达式测试器: /^\(?([0-9]{3})\)?[-. ]?([0-9]{3})[-. ]?([0-9]{4})$/.test(value); 它适用于以下情况: 123-456-
这是基本问题: 美国联邦所得税可能每年甚至年中发生变化。它们基于税表,无论您是单例还是已婚,您获得付款的频率以及您申请的免税额。以下是单例且每两周领取一次工资的纳税表示例(2013 年): Gross
我在 America/Los_Angeles TZ 上,当我尝试在 America/Mazatlan TZ 中渲染午夜时,出现以下异常: Exception in thread "main" java
我正在使用美国 map 来显示数据状态,Extension map 工作正常悬停时,我成功地为每个状态提供了值。但使用循环。 "mouseover" : function(event, data)
我正在尝试在数据集中创建一个新列,该新列依赖于数据中的两个单独的列(国家/地区和邮政编码)。如果国家/地区是“美国”,我希望新列获取邮政编码列中的数据并删除“-”后面的所有内容(仅保留前五个数字)。如
这个问题在这里已经有了答案: pytz localize vs datetime replace (4 个答案) 关闭 4 年前。 这是我的 Python 代码: import pytz from
我正在尝试为每个状态分配一种颜色,以便没有两个相邻状态共享相同的颜色 ( http://en.wikipedia.org/wiki/Four_color_theorem )。该程序将输出每个状态及其颜
给定一个州列表,如美国各州,我试图编写一个算法来判断这些州是否相邻。顺序无关紧要,可以重新访问状态。 例子: AZ, CA, OR, WA 是连续的 AZ, CA, NM, UT 是连续的 AZ, N
我正在使用 MySQL 执行一些深入的数据分析,并且希望能够创建美国的颜色编码 map ,其中将根据值范围设置各个州的颜色;有任何想法吗?管理层喜欢颜色,轻松地按地理位置汇总数据的能力对他们来说将
关闭。这个问题是off-topic .它目前不接受答案。 想改进这个问题吗? Update the question所以它是on-topic用于堆栈溢出。 关闭 10 年前。 Improve th
我有一个语言切换器,它工作得很好,直到我收到用户的邮件说我的应用程序无法加载任何内容。 经过一番交谈,用户告诉我他们将 iDevice 语言设置为英语(英国)。我告诉他们将其更改为英语(美国),然后该
使用 Mike Bostock 示例的 d3.v3 的美国 map : 我希望 map 在页面加载时最初放大到标记的位置,但应该呈现整个 map ,以便用户可以根据需要缩小。 var w = 300;
我希望我的 iOS 应用程序能够显示特定于用户当前所在州(即加利福尼亚州、俄勒冈州等)的信息。这是如何使用核心位置来完成的? CLLocation 类具有坐标 — 如何将其转换为状态? (仅供引用,我
我正在使用 jQuery 美国 map 插件。 在这里找到的。 https://github.com/NewSignature/us-map/ 我正在尝试添加 10 个附加按钮,它们也将与状态数据相关
我是澳大利亚的一名开发者,我正在为 Android 和 iOS 项目使用 Firebase 实时数据库。 客户提示滞后和延迟,尤其是在登录时,我正在尝试查明是否有任何 Firebase 进程默认位于美
我正在尝试找到一种使用 NSNumberFormatter 将输入数字字符串格式化为美国电话号码样式的方法。 例如:4155552671应该是+1-415-555-2671(如果我没记错的话) 我想知
该问题要求计算一周中每一天的第 13 个数。这是我的代码。 class CopyOffriday { public static void main(String[] args) throws IOE
出于学习目的,我正在尝试开发一个应用程序,它将在 MKMapView 上显示到特定点的方向。 但是,无论地址如何,DirectionsResponse 每次都会给我以下错误: 2013-12-28 1
我有一个非常简单的登录页面(登录名+密码)。 我的用户是法国人,所以他们的键盘是法语 (azerty)。 从 iOS 12 开始,当他们点击 protected 密码文本字段时,键盘会切换为英语 (q
我是一名优秀的程序员,十分优秀!