创建数据框R时合并两个列表

Question

I have the following situtation with two list : Path and UTMZones

> Path
[[1]]
[1] "/home/rus/S1A_IW_GRDH_1SDV_20190824T003615_20190824T003640_028704_033FD2_7CC8.SAFE/"

[[2]]
[1] "/home/rus/S2A_MSIL2A_20190827T105621_N0213_R094_T30TVK_20190827T141656.SAFE/"

[[3]]
[1] "/home/rus/S2B_MSIL2A_20190826T153819_N0213_R011_T18TXL_20190826T195901.SAFE/"

The second list (the Null is okay)

> UTMZones
[[1]]
NULL

[[2]]
[1] "30"

[[3]]
[1] "18"

Using this as input I am creating a df with the following code:

df<-enframe(Path, name = "number", value = "uri") %>%
        unnest %>%
        mutate(plugin = case_when(substr(uri, 11, 12) == "S1" ~ "class org.esa.s1tbx.io.sentinel1.Sentinel1ProductReaderPlugIn", TRUE ~ "class org.esa.s2tbx.dataio.s2.ortho.plugins.Sentinel2L1CProduct_Multi_UTM18N_ReaderPlugIn"))

The code works but now I need to insert a small modification. In the last part of the code, when creating the dataframe I am doing

 ~ paste0("class org.esa.s2tbx.dataio.s2.ortho.plugins.Sentinel2L1CProduct_Multi_UTM", UTMZones, "N_ReaderPlugIn", collapse = "")))

This code of course does not work. What I am trying to do is that when creating the df , for position [i] in Path , the first position of UTMZones (eg [j] should be used in the paste function

I have been trying with a two-variable for loop but I do not get the right result:

for (i in seq_along(Path)){
      for(j in seq_along(UTMZones)){

        df<-enframe(Path[[i]], name = "number", value = "uri") %>%
        unnest %>%
        mutate(plugin = case_when(substr(uri, 11, 12) == "S1" ~ "class org.esa.s1tbx.io.sentinel1.Sentinel1ProductReaderPlugIn", TRUE ~ paste0("class org.esa.s2tbx.dataio.s2.ortho.plugins.Sentinel2L1CProduct_Multi_UTM", UTMZones[[j]], "N_ReaderPlugIn", collapse = "")))

      }
    }

-- EDIT --

The output should look like this. Note how the UTM changes in sequence using UTMZones as reference.

> df
# A tibble: 5 x 3
  number uri                                                                     plugin                                                                      
   <int> <chr>                                                                   <chr>                                                                       
1      1 /home/rus/S1A_IW_GRDH_1SDV_20190824T003615_20190824T003640_028704_033F? class org.esa.s1tbx.io.sentinel1.Sentinel1ProductReaderPlugIn               
2      2 /home/rus/S2A_MSIL2A_20190827T105621_N0213_R094_T30TVK_20190827T141656? class org.esa.s2tbx.dataio.s2.ortho.plugins.Sentinel2L1CProduct_Multi_UTM30...
3      3 /home/rus/S2B_MSIL2A_20190826T153819_N0213_R011_T18TXL_20190826T195901? class org.esa.s2tbx.dataio.s2.ortho.plugins.Sentinel2L1CProduct_Multi_UTM18...

-- EDIT 2 --

This is the run of the code with @Ronak Shah solution

>     UTMZones[lengths(UTMZones) == 0] <- ""
> library(tidyverse)
> df<-enframe(Path, name = "number", value = "uri") %>%
+       mutate(UTM  = UTMZones) %>%
+       unnest %>%  
+       mutate(plugin = ifelse(substr(uri, 11, 12) == "S1", 
+                              "class org.esa.s1tbx.io.sentinel1.Sentinel1ProductReaderPlugIn", 
+                              paste0("class org.esa.s2tbx.dataio.s2.ortho.plugins.Sentinel2L1CProduct_Multi_UTM", 
+                                     UTM, "N_ReaderPlugIn", collapse = "")))
> df$plugin[[3]]
[1] "class org.esa.s2tbx.dataio.s2.ortho.plugins.Sentinel2L1CProduct_Multi_UTMN_ReaderPlugInclass org.esa.s2tbx.dataio.s2.ortho.plugins.Sentinel2L1CProduct_Multi_UTM30N_ReaderPlugInclass org.esa.s2tbx.dataio.s2.ortho.plugins.Sentinel2L1CProduct_Multi_UTM18N_ReaderPlugIn"

Answer 1

Few changes in the code. First replace the NULL elements to blank elements

UTMZones[lengths(UTMZones) == 0] <- ""

then include UTMZones in the dataframe so that it is easy to replace values.

library(tidyverse)

enframe(Path, name = "number", value = "uri") %>%
    mutate(UTM  = UTMZones) %>%
    unnest %>%  
    mutate(plugin = ifelse(substr(uri, 11, 12) == "S1", 
    "class org.esa.s1tbx.io.sentinel1.Sentinel1ProductReaderPlugIn", 
paste0("class org.esa.s2tbx.dataio.s2.ortho.plugins.Sentinel2L1CProduct_Multi_UTM", 
            UTM, "N_ReaderPlugIn")))

Answer 2

We can do this in base R

UTMZones <- lapply(UTMZones, function(x) replace(x, is.null(x), ""))
within(stack(setNames(Path, seq_along(Path)))[2:1],{ UTM <- unlist(UTMZones);plugin <- ifelse(substr(values, 11, 12) == "S1", 
 "class org.esa.s1tbx.io.sentinel1.Sentinel1ProductReaderPlugIn", 
    paste0("class org.esa.s2tbx.dataio.s2.ortho.plugins.Sentinel2L1CProduct_Multi_UTM", 
         UTM, "N_ReaderPlugIn"))})

If we don't need the 'UTM' column

transform(stack(setNames(Path, seq_along(Path)))[2:1], 
    plugin= ifelse(substr(values, 11, 12) == "S1", 
 "class org.esa.s1tbx.io.sentinel1.Sentinel1ProductReaderPlugIn", 
    paste0("class org.esa.s2tbx.dataio.s2.ortho.plugins.Sentinel2L1CProduct_Multi_UTM", 
         unlist(UTMZones), "N_ReaderPlugIn")))

Answer 3

Although @akrun and @Ronak Shah answers are much more efficient and definitely this is what I am looking for, I'll put down my - not perfect - attempt which is much more basic but I would say easy to follow in case someone is interested.

Since I was not managing to itereate in the dataframe properly, once having the dataframe created with a wrong content for the plugin column, I used the following code to correct it.

for (i in seq_along(Path)){
      if (substr(Path[[i]], 11,12) == 'S1') {
        df$plugin[[i]] <- 'class org.esa.s1tbx.io.sentinel1.Sentinel1ProductReaderPlugIn'
      } else {
        df$plugin[[i]] <- paste0("class org.esa.s2tbx.dataio.s2.ortho.plugins.Sentinel2L1CProduct_Multi_UTM", UTMZones[[i]], "N_ReaderPlugIn", collapse = "")
      }
    }