How to select second row in R?

Question

I want to select a second row from a table (or array?) but it returns an error.

a <- readLines(stdin(), n=1)

I enter 5 4 3 2 1 4 5 6 7 6 5 4

data <- strsplit(a, " ")
leafplot <- table(data)
leafplot[,2]

Then it returns an error

Error in `[.default`(leafplot, , 2) : incorrect number of dimensions

Answer 1

as.data.frame(leafplot)$Freq
# [1] 1 1 1 3 3 2 1

Or

as.matrix(leafplot)[, 1]
# 1 2 3 4 5 6 7 
# 1 1 1 3 3 2 1