变量长度不相等时，以R为基数的分组和反向条形图

我试着在R基上做一个条形图，所以不是用ggplot，它是分组和反向的，我发现了很多类似的问题和答案，但似乎没有一个适合我。 我的数据库是关于2007年欧洲电视歌曲大赛的，这是指向它的链接：

这是清理和获取我正在使用的数据库的代码：

cela_baza <- read.csv("eurovision_song_contest_1975_2019.csv", stringsAsFactors = FALSE)

evro2007_pocetna<-cela_baza[cela_baza$Year=='2007',]

evro2007_aggr<-aggregate(evro2007_pocetna$Points~evro2007_pocetna$From.country+
                         evro2007_pocetna$To.country,FUN=mean)

colnames(evro2007_aggr) <- c('From country', 'To country','Points')

evro2007<-evro2007_aggr[!(evro2007_aggr$`From country`==evro2007_aggr$`To country`),]

nrow(subset(evro2007, evro2007$Points== 0 ))

evro2007_zero<- subset(evro2007, evro2007$Points> 0 )

---

cela_baza可以按照您所描述的做，但由于x轴上的国家数量（42个，每个国家有三个条形），以及基本R的
条形图的限制，结果图非常糟糕

以下是我们如何获得正确格式的数据：

winners哇，这正是我想要的，谢谢！我曾尝试对一个国家做过类似的事情，从陪审团/公众那里获得分数，但出现了这个错误：姓名错误（self）我错在哪里，这是我的代码：smakedonija names（self）我希望你能遵循我的（实际上是你的：）这里编辑的代码非常糟糕：D@Allan CameronI也将感谢任何人的帮助，如果有人在评论中发现我的代码中的错误，现在就告诉我
barplot(Points ~ `To country` + `From country`, 
        data = winners, beside = TRUE, cex.names = 0.3)

winners$`To country` <- factor(winners$`To country`, 
                               levels = c("Serbia", "Ukraine", "Russia"))

ggplot(winners, aes(`To country`, Points, fill = `To country`)) + 
  geom_col() + 
  facet_wrap(.~`From country`) +
  theme(axis.text.x = element_blank())