在R中绘制二进制变量

我有一个数据框，我在其中创建了一个变量（

data$adtype

），用于判断广告的音调是正的还是负的。所以，如果它是正的，广告得到零，负的，广告得到1。所以，我正在做adtype的条形图，但我正在按州划分数据。例如，（

data$adtype[data$state==“NY”]

）。对于既有正面广告又有负面广告的州，它将正确绘制图表。问题是，对于只播放正面广告的州，它将绘制一个单条图，甚至不包括图上的其他变量

例如，当我执行

表时（data$adtype[data$sate==“NY”]）

它可能会说：

0       1 
2500    3000

这意味着有2500个正面广告和3000个负面广告，它将绘制这两个条形图

现在，如果新泽西州只有正面广告，没有负面广告

table(data$adtype[data$sate=="NJ"])

我希望此代码返回以下内容

0     1
500   0

其中有500个正面广告和0个负面广告

相反，它返回这个

0
500

它甚至不会将另一个值放在表上，也不会绘制它的图形

我试图生成一个图形，其中x轴上有两个二进制值，0和1，即使其中一个值中有零个ads，它仍然会包含在图形中

---

希望这是有意义的

将变量设为一个系数：

set.seed(1)
x <- rbinom(100, 1, .50)
x <- as.factor(x)
par(mfrow=c(1,2))
barplot(table(x))
barplot(table(x[x==1]))

set.seed（1）
请通过dput发布您的数据