R 向量中的附加零

我试图拟合数据集中与字符串相关的值1-6的直方图。我的数据和NA中的值一直等于零，尽管我认为我消除了它们

LicenseType=TexasData$License.Type
LicenseType=LicenseType[CountyInside]
LicenseType = gsub("[^[:alpha:]]", "NA", LicenseType)
LicenseTypeNumber=integer(length = length(LicenseType))


na.omit(TexasData$License.Type)
unique(LicenseType)

for (i in 1:length(LicenseType)) {
  if(is.na(LicenseType))
    LicenseType=FALSE
  else{
    if(LicenseType[i]=="SALE")
      LicenseTypeNumber[i]=1
    else if(LicenseType[i]=="BRK")
      LicenseTypeNumber[i]=2
    else if(LicenseType[i]=="BLLC")
      LicenseTypeNumber[i]=3
    else if(LicenseType[i]=="BCRP")
      LicenseTypeNumber[i]=4 
    else if(LicenseType[i]=="6")
      LicenseTypeNumber[i]=6
    else if(LicenseType[i]=="REB")
      LicenseTypeNumber[i]=5
  }
  
}
LicenseTypeNumber
dput(LicenseTypeNumber)

hist(LicenseTypeNumber, main="Licence Type by Agents Histogram", ylab = "Agents", xlab = "License Type")

我曾想过使用gsub，但我不确定我是否用错了，或者在这个数据集上是否不起作用。有什么意见吗？当我第一次运行dput时，我得到了我期望的值，但是它会很快将这些零相加。 dput示例： 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,

---

0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0，

您需要的不是直方图，而是条形图/曲线图。执行

barplot（table（LicenseType））

如果您创建一个小的可复制示例以及预期的输出，将更容易提供帮助。了解。