Question

我想为每个演员绘制一张带有不同颜色点的地图实施暴力。

感谢您的帮助：）

library("readxl", lib.loc = "C:\Users\Student\Downloads\sll-ledsierre-   leonelocalsource1991-2001.xlsx")
library("ggplot2")
library("ggmap")

qmap("Sierraleone" , zoom = 8)

df <- read_xlsx("sll-ledsierre-leonelocalsource1991-2001.xlsx")

map <- qmap("Sierraleone" , zoom = 8)
#only violence against civilians

df1<- df

install.packages("dplyr")
library(dplyr)
install.packages("magrittr")
library(magrittr)

df1 <- filter(df1, df1$EVENT_TYPE == "Violence against civilians")

map + ggplot(data = df1, aes(x = LONGITUDE, y = LATITUDE)) +
geom_point(alpha = 0,5, size = 1) +
aes(colour=ACTOR1)

我的数据集(head(df))的示例，其中仅包含我地图的有趣列

ACTOR1     LATITUDE     LONGITUDE

1 RUF: Revolutionary United Front     8.11     -11.6
2 RUF: Revolutionary United Front     8.11     -11.6
3 RUF: Revolutionary United Front     7.96     -11.7
4 RUF: Revolutionary United Front     7.96     -11.7
5 RUF: Revolutionary United Front     7.96     -11.7
6 RUF: Revolutionary United Front     7.96     -11.7

我收到此错误消息

错误：不知道如何将ggplot(data = df1, aes(x = LONGITUDE, y = LATITUDE))添加到绘图中

Answer 1

我对R上的地图不是很熟悉，但是也许您可以在此处（Plotting the world map in R）进行检查，然后将经度和纬度放在geom_map()而不是ggplot()中，如下所示：< / p>

ggplot() +
    geom_map(data = df1, map = map, aes(x = LONGITUDE, y = LATITUDE))

Answer 2

enter image description here

df <- data.frame(stringsAsFactors=FALSE, INTER1 = c(1, 2, 3, 4, 7, 8), LATITUDE = x, LONGITUDE = y)

map +
  geom_point(data = df, aes(x = LONGITUDE, y = LATITUDE, colour = INTER1), size=1,     alpha=0.5) +
  theme(legend.position = "bottom")

这是我的新代码，该代码有效，但是您知道如何更改颜色吗？因为默认情况下它是蓝色阴影，所以我读到有关palette_explorer和可能具有彩虹色的可能性

错误：不知道如何将ggplot添加到绘图中

2 个答案: