set.seed(357) x <- data.frame(name = sample(letters, 10), val = runif(10), stringsAsFactors = F) x[c(2,6),\"name\"] <- c(\"k\",\"k\") ggplot(x, aes(x = name, y
Actually, simply add the following setting xlab(x$name)
xlab(x$name)
ggplot(x, aes(x = name, y = val)) + theme_bw() + geom_bar(stat = "identity") + xlab(x$name)