The best way to avoid this error is to subset the data that you feed to the base R function hist
.
For example,
with(data, hist(actions[actions >= 0 & actions < 131], breaks=seq(0,130,by=1))
Maybe a little more flexible approach is to pre-specify the desired set of values, to make it easier to adjust if you change your mind at some point.
myValues <- seq_len(131)-1
with(data, hist(actions[actions %in% myValues], breaks=myValues)