は

Question

私は、次のスプレッドシートは、でアップロードしました私はその行のすべてのTotal current Assets値をインポートしたいと思います。

31/12/2016    31/12/2015    31/12/2014   31/12/2013   31/12/2012      31/12/2011   31/12/2010   31/12/2009   31/12/2008   31/12/2007  
th USD    th USD    th USD   th USD   th USD      th USD   th USD   th USD   th USD   th USD  

    21.855.481    23.407.658   30.740.856    35.002.444   34.819.795      36.161.838   24.317.544   20.191.164   51.185.242   22.041.144 

私にとって困難な部分は、このデータを数行上の日付行とともにインポートすることです。私はデータファイルの行19をインポートしようとしていませんが、行名に対応する値はTotal Current Assetsです。私はこれらのバランスシートの多くを持っており、行番号はわずかに変化します。

Answer 1

library(xlsx) 
library(tidyverse) 

# Read the data from excel file 
df <- read.xlsx('~/Downloads/balance_upload_stack.xlsx', 
       sheetIndex = 1, stringsAsFactors = F) 

# Identify the rows of interest based on the name and subset the original data.frame 
rows_of_interest <- which(df[,1] %in% c("Annual report/Consolidated"," Total Current Assets")) 
new_df <- df[rows_of_interest,] 
new_df <- new_df[!(duplicated(new_df[,1])),] 

# Remove the column with NA and align the data which are spread across different columns 
new_df <- new_df[colSums(!is.na(new_df)) > 0] 
new_df <- cbind(Index = rev(new_df[,1]), 
       new_col = na.omit(unlist(new_df[,-1]))) %>% as.data.frame() 

出力データフレーム

     Index   new_col 
     Total Current Assets 21855481.4195938 
Annual report/Consolidated  31/12/2016 
     Total Current Assets 23407658.3146 
Annual report/Consolidated  31/12/2015 
     Total Current Assets 30740855.9858115 
Annual report/Consolidated  31/12/2014 
     Total Current Assets 35002443.8754019 
Annual report/Consolidated  31/12/2013 
     Total Current Assets 34819794.6592976 
Annual report/Consolidated  31/12/2012 
     Total Current Assets 36161837.8907298 
Annual report/Consolidated  31/12/2011 
     Total Current Assets 24317543.6967938 
Annual report/Consolidated  31/12/2010 
     Total Current Assets 20191164.1378803 
Annual report/Consolidated  31/12/2009 
     Total Current Assets 51185242.2723579 
Annual report/Consolidated  31/12/2008 
     Total Current Assets 22041143.7373581 
Annual report/Consolidated  31/12/2007