这就可以了：

# Define your data
dfr <- data.frame(
   countrydes=rep(c("USA", "CANADA"), 2), 
   Insured=c(4500, 4500, 7500, 7600))
# Sum by country
totals <- with(dfr, by(Insured, countrydes, sum))
# Plot the answer
barplot(totals)

(As Etiennebr提到，您可以使用aggregate代替by，在这种情况下，您需要强制countrydes成为列表。）

你可以简单地将每个数据框分别求和，我们将数据框命名为df：

USA <- sum(df[df$countrydes=="USA",]$Insured)
CANADA <- sum(df[df$countrydes=="CANADA",]$Insured)

但是使用aggregate（），您可以在一行中处理所有国家。

aggsumcount <- aggregate(x=df$Insured,by=list(df$countrydes),FUN=sum)