Question

我一直在使用ggflags包创建散点图，但一直遇到问题。我的地块上没有标志。我已经搜索过警告消息，大多数人都说这是因为数据中是否包含NA，或者与y / xlim有关。我都尝试了两次，但仍然无法正常工作。可能是我做错了其他事情。有人可以帮我吗？

下面是我的代码#########################################

library(ggflags)
forRegions <- read_excel("180810_60 CountriesByRegion_EpiSdgi.xlsx", 
                         sheet = "duplicate")
forRegions<- forRegions[,c(1:3)] #extract first 3 columns
oce0101 <- read_excel("EPI Analysis.xlsx", sheet = "EPI duplicate")
oce0102<- oce0101[,c(2,3,23)] #extract mpa index column 
oce0103<- merge(oce0102,forRegions,by= 'iso') #to include regions

df=data.frame(oce0103)
library(countrycode)
code=countrycode(df$country,"country.name","iso2c")
df$country=sample(c(code))
 #df[df==0]=NA
 #na.omit(df)
df <- na.omit(df)
ggplot(df,aes(x=Region,y=MPA.current,country=country,size=Region))+
  geom_flag(aes())+
  #scale_country()+
 # scale_size(range=c(0,15))+
  scale_x_discrete(limits =c(0,100))+
  scale_y_continuous(limits =c(0,110))

＃

Answer 1

我们很难回答这个问题，因为您的代码不是可复制的示例。我怀疑问题在于您的数据集中至少有一个国家代码与ggflags数据集不匹配。

此页面用于ggflags https://github.com/rensa/ggflags/issues/10

建议您的错误消息与使用无效的国家/地区代码有关。

我会仔细检查您的国家/地区代码列表，并确保它们都与此处的列表匹配：

https://github.com/rensa/ggflags

我在编写的代码中遇到了类似的问题，因为我错误地将所有国家（地区）代码都用大写而不是小写。将它们转换为小写即可解决此问题。

ggflags，警告消息：已删除109行，其中包含缺失值（geom_flag）

1 个答案: