小编Zue*_*nie的帖子

我试图通过在R中使用ggplot来标记我的多边形.我在stackoverflow上找到了一个主题,我认为它非常接近我想要的除了点数.

在geom_point中标记点

我在网上找到了一些方法.现在我首先需要找到每个形状的中心位置,然后我必须将这些位置与名称放在一起.然后将其链接到geom_text()中的标注函数

ggplot在地图上居中显示名称

因为我已经尝试了很长时间,所以我决定提出这个问题,并希望这里的某个人可以给我最终的推动力.我的绘图功能:

region_of_interest.fort <- fortify(region_of_interest, region = "score")
region_of_interest.fort$id <- as.numeric(region_of_interest.fort$id)
region_of_interest.fort$id <- region_of_interest.fort$id


region_of_interest.fort1 <- fortify(region_of_interest, region = "GM_NAAM")
region_of_interest.fort1$id <- as.character(region_of_interest.fort1$id)
region_of_interest.fort1$id <- region_of_interest.fort1$id

idList <- unique(region_of_interest.fort1$id)
centroids.df <- as.data.frame(coordinates(region_of_interest))
names(centroids.df) <- c("Longitude", "Latitude")
randomMap.df <- data.frame(id = idList, shading = runif(length(idList)), centroids.df)

ggplot(data = region_of_interest.fort, aes(x = long, y = lat, fill = id, group = group)) +
  geom_polygon() +
  geom_text(centroids.df, aes(label = id, x = Longitude, y = Latitude)) +
  scale_fill_gradient(high = "green", …

我正在尝试在 React 中使用钩子。钩子应该给我一个布尔值和一个回调。当回调被调用时，布尔值应该改变值。当我尝试检索值和回调时，出现错误。

属性isEnabled在 type 上不存在(boolean | (() => void))[]。上线了const {isEnabled, toggleCallback} = useToggle()；

我究竟做错了什么？

function toggleCallback(toggleCallback: () => void) {
    toggleCallback();
}

export default function FakePage(props: any) {
    const {isEnabled, toggleCallback} = useToggle();
    return (
        <div>
            <ComponentOne isEnabled={isEnabled}/>
            <button onClick={() => testToggle(toggleCallback)}>Test</button>
        </div>
    );
}

// hook
export default function useToggle() {
    let isEnabled: boolean = true;
    const toggleCallback= useCallback(() => {
        isEnabled = !isEnabled;
    }, [isEnabled]);
    return [isEnabled, toggleCallback];
}

对于我的学校作业,我试图制作荷兰地图,其中填充的颜色标度取决于整数(公民数量).我有一个名为mun_neth的数据集,它是一个SpatialPolygonDataFrame,包含荷兰的所有多边形和我想要绘制的所有数据.我尝试了三种不同的方法,我在下面添加了这些方法.我还把错误消息放在下面.我想我误解了填充要求.哪里出错了,我该如何解决？

在stackoverflow上搜索之后,我觉得我已经非常接近绘制地图了.但遗憾的是它尚未发挥作用.

# Set workspace
getwd()
setwd("~/Wageningen/2.2 Geoscripting/data")

# Load libraries
install.packages("RCurl", dependencies=TRUE)
library(RCurl)
install.packages("ggplot2", dependencies=TRUE)
library(ggplot2)
install.packages("rgdal", dependencies=TRUE)
library(rgdal)
# Load in data
dl_from_dropbox <- function(x, key) {
  require(RCurl)
  bin <- getBinaryURL(paste0("https://dl.dropboxusercontent.com/s/", key, "/", x),           
                      ssl.verifypeer = FALSE)
  con <- file(x, open = "wb")
  writeBin(bin, con)
  close(con)
  message(noquote(paste(x, "read into", getwd())))                        
}

dl_from_dropbox("Netherlands.zip", "bocfjn1l2yhxzxe")
unzip("Netherlands.zip")
mun_neth <- readOGR('gem_2012_v1.shp', layer = 'gem_2012_v1')

# First attempt
mun_neth <- readOGR('gem_2012_v1.shp', layer = 'gem_2012_v1')
mun_neth@data$id <- rownames( mun_neth@data )
mun_neth.df <- as.data.frame( mun_neth …

我试图将数据从一个数据框合并到另一个数据框.我想这对每个人来说都是一个简单的问题.但我似乎无法得到正确的结果.所以像.

df1 <- data.frame(X=c("aap","rel","kop"), Y=c(500,12,350))
df2 <- data.frame(X=c("lee","1su","eeu","ggu", "ees"), Y=c(100,12,350,80,50)) 
df3 <- merge(df1, df2)

结果应该是:

df3 <- data.frame(X=c("aap","rel","kop", "lee","1su","eeu","ggu", "ees"), 
                 Y=c(500,12,350,100,12,350,80,50) 

所以我定期使用 pgadmin4 备份和恢复数据库和模式。我想使用 pg_dump 和 pg_restore 命令通过批处理文件来完成此操作。然而，我总是无法成功，需要一些帮助。我尝试转储一个模式（带有数据）的方法如下：

pg_dump -U postgres -F c -d database -n schema > mw2

然后我尝试使用 pg_restore 恢复它：

pg_restore -U postgres -d otherdatabase -n schema mw2

首先，我尝试使用 .dump 代替 tar，但结果保持不变；这是我的数据库中的空架构。

或者出现如下错误信息：

pg_restore: [archiver] input file does not appear to be a valid archive

更新问题的底部:

我正在尝试创建一个脚本,在荷兰生成所有地理编码的推文.到达那里我还有很长的路要走.当我和Tweepy玩耍的时候,我遇到了一个奇怪的情况.我在网上找到了一个可以搜索包含关键字的推文的脚本.我试图添加一个参数检查地理编码.我成功了,底层脚本有效.但是,当我删除tweepy.Cursos()调用的地理编码部分时,它不再起作用.所以这个脚本有效:

import tweepy
import csv

consumer_key = "???"
consumer_secret = "???"
access_token = "???"
access_token_secret = "???"

auth = tweepy.auth.OAuthHandler(consumer_key, consumer_secret)
auth.set_access_token(access_token, access_token_secret)
api = tweepy.API(auth)

# Open/Create a file to append data
csvFile = open('tweets.csv', 'a')
#Use csv Writer
csvWriter = csv.writer(csvFile)

for tweet in tweepy.Cursor(api.search,q="*",count=100,geocode="5.29126,52.132633,150km").items(100):
    print [tweet.created_at, tweet.text.encode('utf-8'), tweet.user.id, tweet.geo]
    csvWriter.writerow([tweet.created_at, tweet.text.encode('utf-8'), tweet.user.id])

UPDATE!谢谢你帮助我到目前为止.现在我有另一个问题,我的目标是创建一个脚本来收集荷兰的所有地理参考推文.

我的代码的最后一部分应返回荷兰的所有地理编码推文并将其写入CSV文件.不幸的是,它似乎只是用英语推文.由于没有荷兰语设置,荷兰人也用英语发推文,我不想设置搜索语言.为什么只用英语搜索推文？我不知道我在哪里设置搜索的这个特征.

哦,我转过拉特隆.愚蠢的错误.问题得到解答!

运行下面的代码时，我收到错误：“ModuleNotFoundError：没有名为 'kucoin.client' 的模块；'kucoin' 不是一个包”。我像这里的文档中那样进行了 pip 安装：http://python-kucoin.readthedocs.io/en/latest/overview.html#response-timestamps。出了什么问题？

from kucoin.client import Client

client = Client(api_key, api_secret)

# optionally pass the language you would like to use
# see client.get_languages() for options
#client = Client(api_key, api_secret, language='zh_CN)
client.get_languages()