小编sch*_*omm的帖子

我想计算两个不同数据集中两点之间的距离.我不想计算所有点之间的距离 - 只是到数据集B的最近点.
一些例子:

数据集A - 人员
http://pastebin.com/HbaeqACi

数据集B - Waterfeatures:http ://pastebin.com/UdDvNtHs

数据集C - 城市:http :
//pastebin.com/nATnkMRk

所以...我想计算每个人到最近的水上特征点的距离.
我已经尝试过使用rgeos软件包,在遇到一些预测错误之后,我已经开始工作了.但是,这计算(至少我假设)到每个点的所有距离,但是,正如已经说过的,我只对距离最近的水特征点的距离感兴趣.

# load csv files
persons = read.csv("persons.csv", header = TRUE)
water = read.csv("water.csv", header = TRUE)
# change dataframes to SpatialPointDataFrame and assign a projection
library(sp)
library(rgeos)
coordinates(persons) <- c("POINT_X", "POINT_Y")
proj4string(persons) <- CRS("+proj=utm +datum=WGS84")
coordinates(water) <- c("POINT_X", "POINT_Y")
proj4string(water) <- CRS("+proj=utm +datum=WGS84")

# use rgoes package to calculate the distance
distance <- gDistance(persons, water, byid=TRUE)
# …

我正在努力解决将图像附加到<td>-element 的问题。不幸的是，我无法向您展示一个完整的 jsfiddle（值计算相当复杂），但我希望一些代码片段就足够了。

表结构：

var table = createElement('table');
var header = table.createTHead();
var row = header.insertRow(0);
var cell0 = row.insertCell(0);
cell0.innerHTML = "Indikator"
var cell1 = row.insertCell(1);
cell1.innerHTML = "In dieser Region"
var cell2 = row.insertCell(2);
cell2.innerHTML = "Alle Regionen: Höchster Werte"
var cell3 = row.insertCell(3);
cell3.innerHTML = "Alle Regionen: Niedrigster Werte"
var cell4 = row.insertCell(4);
cell4.innerHTML = "Alle Regionen: Durchschnitt"
var cell5 = row.insertCell(5);
cell5.innerHTML = "Bewertung";
tbody = table.appendChild(document.createElement('tbody'));

然后我使用 for 循环，其中创建了表的其余部分：

for (var key in …

我正在尝试将焦点设置到此Leaflet插件输入字段的搜索栏,但它不起作用.我尝试过使用以下内容:

//jquery  
$("#leaflet-control-geosearch-qry").focus();  
//html  
document.getElementById("leaflet-control-geosearch-qry").focus();

你可以自己试试.不会将焦点设置为使用上述行设置搜索栏.

将其中一个映射到一个按钮并单击该按钮会将焦点设置到搜索栏.

<script>
    //Set Focus to Search Box
    function setFocusToSearchBar(){
        document.getElementById("leaflet-control-geosearch-qry").focus();
        //or $("#leaflet-control-geosearch-qry").focus();  
    }
</script>


<div id="Focus_on_Searchbar">
    <button id="sidebar_button_focus" onclick="setFocusToSearchBar();">
        Focus on Searchbar
    </button>
</div>

这有效!使用其中一个与Chrome/FF控制台不起作用,我不知道为什么不这样做,因为它适用于一个按钮.

有任何想法吗？我正在使用Bootstrap作为我的Header-Bar ...也许这很重要？

当一个变量有另一个值而不是定义时,我试图让脚本断言失败.我的目标:如果TestStep失败,将TestStep标记为红色.请注意,我正在使用TestStep的脚本断言 - 而不是单独的Groovy-Script TestStep.我的脚本看起来像这样:

httpResponseHeader = messageExchange.responseHeaders
contentType = httpResponseHeader["Content-Type"]
log.info("Content-Type: " + contentType)

if (contentType != "[image/jpeg]"){
    log.info("ERROR! Response is not an image.")
    //Script Assertion should fail.
    //TestStep should be marked red.
} else {
    log.info("OK! ResponseType is an image.")
}

有什么办法,如何让脚本断言取决于属性？我试过使用getStatus()方法,但这只适用于testrunner对象.不幸的是,testRunner-object不能在关于这篇文章的脚本断言中使用:http://forum.soapui.org/viewtopic.php？ f = 2&t = 2494#p9107

我试图用ggplot2包中心我的酒吧.条形图未与相应值的中心对齐,这可能导致对非专业读者的一些误解.我的情节看起来像这样:

为了重现该图,请使用以下代码:

# Load data
Temp <- read.csv("http://pastebin.com/raw.php?i=mpFpjqJt", header = TRUE, stringsAsFactors=FALSE, sep = ";")
# Load package
library(ggplot2)
# Plot histogram using ggplot2
ggplot(data=Temp, aes(Temp$Score)) + 
geom_histogram(breaks=seq(0, 8, by =1), col="grey", aes(fill=..count..), binwidth = 1, origin = -0.5) 
+ scale_fill_gradient("Count", low = "green", high = "red") 
+ labs(title="Title") 
+ labs(x="X-Title", y="Y-Title") 
+ xlim(c(3,9))

我如何将每个条形图集中到相应的x值？

编辑2017-05-29 由于下载链接将来可能会中断,以下是返回的数据dput()

Temp <- structure(list(ID = 1:30, Score = c(6L, 6L, 6L, 5L, 5L, 5L, 6L, 
5L, 5L, 5L, 4L, 7L, 4L, 6L, 6L, …