小编Jul*_*ora的帖子

我有3个shp文件用于创建城市地图:

• land.shp(多边形绘制在水面之上的土地)
• road.shp(绘制所有道路的多边形,注意其中一些是"圆形道路",这意味着一个洞位于中间)
• building.shp(绘制所有建筑物的多边形)

我使用QGIS来绘制我想要的地图,然后我使用ggplot来播放land.shp,然后使用road.shp并建立shp再次执行此操作.下面的一个是从谷歌地图输出来说明我的问题:

你可以看到它们之间有2座桥和一些海(我没有海啸,我只是将背景设置为蓝色),用蓝点标记.在R中,该区域应该是一个洞,但它都是灰色的.同样的问题是使用红点标记的灰色区域,红点是一块土地,另一个灰色区域使用绿点标记,绿点是由道路环绕的建筑物.

我将在road.shp的洞里有土地/海洋/建筑物,我无法用R.展示它们.

任何人都可以教我如何展示R中road.shp层背后的东西吗？谢谢.

我可以使用绘图功能。可以使用plot获得pca结果。但不确定如何根据我的rownames(Sample)编号为1至90的数据点标记这些点

Sample<-read.table(file.choose(),header=F,sep="\t")
Sample.scaled<-data.frame(apply(Sample_2XY,2,scale))
Sample_scaled.2<-data.frame(t(na.omit(t(Sample_2XY.scaled))))

pca.Sample<-prcomp(Sample_2XY.scaled.2,retx=TRUE)

pdf("Sample_plot.pdf")
plot(pca.Sample$x)
dev.off()

我有一个表达式:例如(map some-proc some-list) ,评估为'(#f #f #f).

我想检查此列表中的所有布尔值是否都为真.然而, (and '(#f #f #f))回归'(#f #f #f),而我留意#f.

现在,如果我(apply and '(#f #f #f)),我得到错误: and: bad syntax in: and在DrRacket环境中.这很令人困惑,因为Racket Reference提供的示例(apply + '(1 2 3))似乎与我的问题完全相同.

我做错了什么以及如何让我#f离开'(#f #f #f)？

我需要搜索大量的字符串来找到以PID开头的"单词".PID是一个ID标签,它们都是编号的(PID1,PID23等)

要搜索的字符串示例:PID442 WALKS TO TOWN

我需要返回特定的ID,因此输出为"PID442".我试图在R中这样做

需要一些有关如何更新列表的帮助.我有一个类,用字符串名称,字符串状态,浮点数和浮点数长度定义对象.

每次玩家移动服务器时都会向我发送一条异步消息,这些变量只能是状态lat和long,这些都是我想要"覆盖"的.这个名字是独一无二的,所以我猜我必须根据它进行搜索,因为这是永远不会改变的事情.我想更新现有对象以防止一个玩家发生一次以上.

到目前为止我的(非功能)代码:

    if(players.size()==0){ ///// 1.
                        Player p  = new Player();
                        p.name = split[2];
                        p.status = split[3];
                        p._lat = Float.valueOf(split[4]);
                        p._long = Float.valueOf(split[5]);
                        players.add(p);
                    }//This works


                    else{ ///// 2.
                    for(int i = 0; i < players.size(); i++){ ///// 3.
                        if(players.get(i).name.equals(split[2])){
                            Player p  = new Player();
                            p.name = split[2];
                            p.status = split[3];
                            p._lat = Float.valueOf(split[4]);
                            p._long = Float.valueOf(split[5]);
                            players.add(p);
                            players.add(i, p);
                        }
                        else{ ///// 4.
                            Player p  = new Player();
                            p.name = split[2];
                            p.status = split[3];
                            p._lat = Float.valueOf(split[4]);
                            p._long = …

我刚刚开始使用chrome.*API开发Google Chrome扩展程序.我正在尝试分析来自浏览器的传出请求.如果我在我的background.html中运行它:

chrome.webRequest.onBeforeSendHeaders.addListener(
        function (details) {            
            if (details.method == "POST") {
                alert(JSON.stringify(details)); 
            }
        },
        { urls: ["<all_urls>"]}
    );

我收到了每个请求的通知,但似乎我没有访问http post参数.我使用额外的内容脚本获取这些参数,但是不能通过chrome.webRequest对象访问参数吗？

df

Date      Ovserv  Team
1/1/2012  10      USA
1/2/2012  30      USA
1/3/2012  28      USA
1/4/2012  79      USA
1/5/2012  24      USA
1/1/2012  45      Japan
1/2/2012  10      Japan
1/3/2012  56      Japan
1/4/2012  60      Japan
1/5/2012  67      Japan

我真的很喜欢黄土,喜欢随时使用它.我正在使用各种不同的数据框,我正在尝试使用黄土方法来绘制图形.但是,由于一些不一致(某些数据帧没有足够的数据点),我收到此错误:

Error in predLoess(object$y, object$x, newx, object$s, object$weights,

是否有可能method="glm"在我使用ggplot2"黄土"方法得到错误的情况下使用？

ggplot(df, (Date, Observ, group=Team, colour=Team)) + 
   geom_smooth(method="loess", se=T, size=1)

有什么想法我会如何解决这个问题？

我想要的是如下图所示:

数据链接:

数据

码:

    distevyield <- read.csv(file = "F:/Purdue University/RA_Position/PhD_ResearchandDissert/PhD_Draft/GTAP-CGE/GTAP_NewAggDatabase/NewFiles/GTAP_DistEVYield.csv", header=TRUE, sep=",", na.string="NA", dec=".", strip.white=TRUE)

    str(distevyield)
    distevyield <- as.data.frame(distevyield)
    distevyield[5:6] <- sapply(distevyield[5:6],as.numeric)
    distevyield <- droplevels(distevyield)
    distevyield <- transform(distevyield,region=factor(region,levels=unique(region)))
    library(ggplot2)

    distevyield.f <- melt(subset(distevyield, region !="World"))

    Figure3 <- ggplot(data = distevyield.f, aes(factor(variable), value)) 
    Figure3 + geom_boxplot() +
    theme(axis.text.x = element_text(colour = 'black', angle = 90, size = 15, hjust = 1, vjust = 0.5),axis.title.x = element_blank()) + 
    theme(axis.text.y = element_text(colour = 'black', size = 15, hjust = 0.5, vjust = 0.5), axis.title.y = …

什么是创建元素的向量的最快方法i * (i-1)为i = 1以i = nR中？