I currently have a dataframe with each column with dimnames. For the most part this isn't an issue, but I recently added to it a new column, `qgf`, that was read in as a list instead of a vector for some reason.

This is an example of what a few rows look like:

```
> wc_results_data[12:20, 23]
$wc_1930_Uruguay
numeric(0)

$wc_1930_USA
numeric(0)

$wc_1934_Argentina
numeric(0)

$wc_1934_Austria
[1] 6

$wc_1934_Belgium
[1] 6

$wc_1934_Brazil
numeric(0)

$`wc_1934_Czech Republic/CSFR`
[1] 2

$wc_1934_Egypt
[1] 11

$wc_1934_France
[1] 6

```

So as you can see, `wc_results_data[c(12:14, 17, 23]` are currently coded as `numeric(0)` when really they should be `NAs` (I should clarify that there are actual *values* of 0 in my code as well).

What's **really** bizarre about these values is that if I try and test them as such, I get weird results:

```
> wc_results_data[12,23]
$wc_1930_Uruguay
numeric(0)
> identical(wc_results_data[12,23], numeric(0))
[1] FALSE
> length(wc_results_data[12,23])
[1] 1

```

To try and solve this issue, I attempted to save this column using `unlist` as such:

wc\_results\_data[,23] <- unlist(wc\_results\_data[,23])

but I get this error:

`replacement has 368 rows, data has 425`

which makes sense of course, basically I have 57 observations that are `numeric(0)` but I CANNOT get rid of them. Is there a way to `unlist` and store these `numeric(0)` observations as `NA`s? Can someone tell me what I am doing wrong?

Per a comment below, here is my output for `dput` on a few rows and columns of the data.frame:

```
dput( wc_results_data[12:20, 22:24])
structure(list(fgd = structure(c(12, 1, -1, 0, -3, -2, 3, -2, 
-1), .Dim = 9L, .Dimnames = list(c("wc_1930_Uruguay", "wc_1930_USA", 
"wc_1934_Argentina", "wc_1934_Austria", "wc_1934_Belgium", "wc_1934_Brazil", 
"wc_1934_Czech Republic/CSFR", "wc_1934_Egypt", "wc_1934_France"
))), qgf = structure(list(wc_1930_Uruguay = numeric(0), wc_1930_USA = numeric(0), 
    wc_1934_Argentina = numeric(0), wc_1934_Austria = 6, wc_1934_Belgium = 6, 
    wc_1934_Brazil = numeric(0), `wc_1934_Czech Republic/CSFR` = 2, 
    wc_1934_Egypt = 11, wc_1934_France = 6), .Dim = 9L, .Dimnames = list(
    c("wc_1930_Uruguay", "wc_1930_USA", "wc_1934_Argentina", 
    "wc_1934_Austria", "wc_1934_Belgium", "wc_1934_Brazil", "wc_1934_Czech Republic/CSFR", 
    "wc_1934_Egypt", "wc_1934_France"))), qga = structure(list(
    wc_1930_Uruguay = numeric(0), wc_1930_USA = numeric(0), wc_1934_Argentina = numeric(0), 
    wc_1934_Austria = 1, wc_1934_Belgium = 8, wc_1934_Brazil = numeric(0), 
    `wc_1934_Czech Republic/CSFR` = 1, wc_1934_Egypt = 2, wc_1934_France = 1), .Dim = 9L, .Dimnames = list(
    c("wc_1930_Uruguay", "wc_1930_USA", "wc_1934_Argentina", 
    "wc_1934_Austria", "wc_1934_Belgium", "wc_1934_Brazil", "wc_1934_Czech Republic/CSFR", 
    "wc_1934_Egypt", "wc_1934_France")))), .Names = c("fgd", 
"qgf", "qga"), row.names = 12:20, class = "data.frame")

```