I am trying to use lapply to set the first row of a list of data frames as the column names.
A sample of the data looks like this:
V3 V4 V5 V6 V7 V8
1 2017-03 2016-03 2015-03 2014-03 2013-03 2012-03
2
3
4
5 143736 106818 108193 33045 30396 16857
6 7065 8878 17806 12029 2919 5480
So I am trying to get the dates to become the column names, replacing V3, V4etc.
Data:
structure(list(Alibaba = structure(list(V1 = c("Fiscal year ends in March. CNY in millions except per share data.",
"Assets", "Current assets", "Cash", "Cash and cash equivalents",
"Short-term investments", "Total cash", "Receivables", "Inventories",
"Deferred income taxes", "Prepaid expenses", "Other current assets",
"Total current assets", "Non-current assets", "Property, plant and equipment",
"Land", "Fixtures and equipment", "Other properties", "Property and equipment, at cost",
"Accumulated Depreciation", "Property, plant and equipment, net",
"Equity and other investments", "Goodwill", "Intangible assets",
"Deferred income taxes", "Other long-term assets", "Total non-current assets",
"Total assets", "Liabilities and stockholders' equity", "Liabilities",
"Current liabilities", "Short-term debt", "Accounts payable",
"Taxes payable", "Accrued liabilities", "Deferred revenues",
"Other current liabilities", "Total current liabilities", "Non-current liabilities",
"Long-term debt", "Deferred taxes liabilities", "Accrued liabilities",
"Deferred revenues", "Minority interest", "Other long-term liabilities",
"Total non-current liabilities", "Total liabilities", "Stockholders' equity",
"Common stock", "Other Equity", "Additional paid-in capital",
"Retained earnings", "Treasury stock", "Accumulated other comprehensive income",
"Total stockholders' equity", "Total liabilities and stockholders' equity"
), V2 = c("2018-03", "", "", "", "199309", "10901", "210210",
"25370", "4535", "", "5760", "10980", "256855", "", "", "", "35909",
"51019", "86928", "-20439", "66489", "177892", "162149", "36842",
"2182", "14715", "460269", "717124", "", "", "", "6028", "",
"16071", "66930", "22297", "24484", "135810", "", "119525", "19312",
"", "993", "70616", "5046", "215492", "351302", "", "1", "3854",
"186764", "172353", "-2233", "5083", "365822", "717124"), V3 = c("2017-03",
"", "", "", "143736", "7065", "150801", "21374", "", "652", "4176",
"5513", "182516", "", "", "", "19311", "13156", "32467", "-12261",
"20206", "151820", "125420", "18799", "386", "7665", "324296",
"506812", "", "", "", "14897", "", "7674", "36025", "15052",
"20123", "93771", "", "76835", "10154", "", "641", "42330", "4282",
"134242", "228013", "", "1", "3393", "164585", "108558", "-2823",
"5085", "278799", "506812"), V4 = c("2016-03", "", "", "", "106818",
"8878", "115696", "11738", "", "451", "3891", "2294", "134070",
"", "", "", "13772", "8038", "21810", "-8181", "13629", "120853",
"81645", "8246", "30", "5977", "230380", "364450", "", "", "",
"4304", "1051", "3733", "15352", "10297", "17302", "52039", "",
"53467", "6471", "", "418", "32552", "2516", "95424", "147463",
"", "1", "2356", "132206", "78752", "", "3672", "216987", "364450"
), V5 = c("2015-03", "", "", "", "108193", "17806", "125999",
"11163", "", "256", "815", "3876", "142109", "", "", "", "10259",
"4646", "14905", "-5766", "9139", "48488", "41933", "9680", "157",
"3928", "113325", "255434", "", "", "", "1990", "667", "3368",
"7035", "7914", "18698", "39672", "", "50603", "4493", "", "445",
"11974", "2808", "70323", "109995", "", "1", "1563", "117142",
"24842", "", "1891", "145439", "255434"), V6 = c("2014-03", "",
"", "", "33045", "12029", "45074", "16006", "", "191", "226",
"6336", "67833", "", "", "", "5947", "3214", "9161", "-3580",
"5581", "20689", "11793", "3566", "66", "2021", "43716", "111549",
"", "", "", "10364", "3308", "1972", "7021", "6496", "8223",
"37384", "", "30711", "2136", "18", "428", "1079", "10455", "44827",
"82211", "", "1", "2474", "27043", "1183", "", "-1363", "29338",
"111549"), V7 = c("2013-03", "", "", "", "30396", "2919", "33315",
"4952", "", "208", "186", "4501", "43162", "", "", "", "3882",
"2612", "6494", "-2686", "3808", "1797", "11294", "2229", "52",
"1444", "20624", "63786", "", "", "", "5448", "2012", "1112",
"5318", "4929", "5176", "23995", "", "22462", "643", "60", "389",
"537", "15724", "39815", "63810", "", "1", "1337", "21655", "-20491",
"", "-2526", "-24", "63786"), V8 = c("2012-03", "", "", "", "16857",
"5480", "22337", "1315", "", "97", "139", "4011", "27899", "",
"", "", "3114", "1565", "4679", "-2216", "2463", "1890", "11436",
"2056", "43", "1423", "19311", "47210", "", "", "", "1283", "537",
"745", "2484", "4350", "2352", "11751", "", "", "413", "", "529",
"2895", "134", "3971", "15722", "", "1", "1096", "20778", "12552",
"", "-2939", "31488", "47210"), V9 = c("2011-12", "", "", "",
"3433", "8219", "11652", "559", "", "", "51", "978", "13241",
"", "", "", "756", "594", "1350", "-617", "733", "235", "455",
"224", "", "408", "2054", "15295", "", "", "", "1286", "16",
"472", "362", "3969", "854", "6961", "", "", "240", "", "454",
"102", "120", "917", "7878", "", "0", "", "", "", "", "7417",
"7418", "15295"), V10 = c("2010-12", "", "", "", "3254", "6803",
"10057", "94", "", "", "294", "596", "11040", "", "", "", "696",
"540", "1236", "-455", "781", "64", "368", "232", "101", "119",
"1665", "12705", "", "", "", "93", "16", "105", "", "", "6171",
"6385", "", "", "131", "", "333", "50", "54", "567", "6952",
"", "0", "", "", "", "", "5753", "5753", "12705"), V11 = c("2009-12",
"", "", "", "2749", "4518", "7266", "38", "", "", "309", "529",
"8143", "", "", "169", "568", "327", "1064", "-281", "783", "26",
"203", "166", "73", "63", "1314", "9457", "", "", "", "", "24",
"35", "", "", "4038", "4097", "", "", "70", "", "204", "41",
"68", "383", "4480", "", "0", "", "", "", "", "4977", "4977",
"9457")), .Names = c("V1", "V2", "V3", "V4", "V5", "V6", "V7",
"V8", "V9", "V10", "V11"), class = "data.frame", row.names = c(NA,
-56L)), Alphabet = structure(list(V1 = c("Fiscal year ends in December. USD in millions except per share data.",
"Assets", "Current assets", "Cash", "Cash and cash equivalents",
"Short-term investments", "Total cash", "Receivables", "Inventories",
"Deferred income taxes", "Prepaid expenses", "Other current assets",
"Total current assets", "Non-current assets", "Property, plant and equipment",
"Gross property, plant and equipment", "Accumulated Depreciation",
"Net property, plant and equipment", "Equity and other investments",
"Goodwill", "Intangible assets", "Deferred income taxes", "Other long-term assets",
"Total non-current assets", "Total assets", "Liabilities and stockholders' equity",
"Liabilities", "Current liabilities", "Short-term debt", "Capital leases",
"Accounts payable", "Taxes payable", "Accrued liabilities", "Deferred revenues",
"Other current liabilities", "Total current liabilities", "Non-current liabilities",
"Long-term debt", "Capital leases", "Deferred taxes liabilities",
"Deferred revenues", "Other long-term liabilities", "Total non-current liabilities",
"Total liabilities", "Stockholders' equity", "Common stock",
"Additional paid-in capital", "Retained earnings", "Accumulated other comprehensive income",
"Total stockholders' equity", "Total liabilities and stockholders' equity"
), V2 = c("2017-12", "", "", "", "10715", "91156", "101871",
"18336", "749", "", "", "3352", "124308", "", "", "59647", "-17264",
"42383", "7813", "16747", "2692", "680", "2672", "72987", "197295",
"", "", "", "", "", "3137", "881", "5464", "1432", "13269", "24183",
"", "3943", "26", "430", "340", "15871", "20610", "44793", "",
"40247", "", "113247", "-992", "152502", "197295"), V3 = c("2016-12",
"", "", "", "12918", "73415", "86333", "14137", "268", "", "4575",
"95", "105408", "", "", "47527", "-13293", "34234", "5878", "16468",
"3307", "383", "1819", "62089", "167497", "", "", "", "", "",
"2041", "554", "4198", "1099", "8864", "16756", "", "3935", "",
"226", "202", "7342", "11705", "28461", "", "36307", "", "105131",
"-2402", "139036", "167497"), V4 = c("2015-12", "", "", "", "16549",
"56517", "73066", "11556", "", "", "3139", "2353", "90114", "",
"", "40146", "-11130", "29016", "5183", "15869", "3847", "251",
"3181", "57347", "147461", "", "", "", "3000", "225", "1931",
"302", "7097", "788", "5967", "19310", "", "1995", "", "189",
"151", "5485", "7820", "27130", "", "32982", "", "89223", "-1874",
"120331", "147461"), V5 = c("2014-12", "", "", "", "18347", "46048",
"64395", "9383", "", "1322", "3412", "2173", "80685", "", "",
"32746", "-8863", "23883", "3079", "15599", "4607", "", "3280",
"50448", "131133", "", "", "", "1999", "10", "1715", "96", "6386",
"752", "5847", "16805", "", "2992", "236", "1971", "104", "4525",
"9828", "26633", "", "28767", "", "75706", "27", "104500", "131133"
), V6 = c("2013-12", "", "", "", "18898", "39819", "58717", "8882",
"426", "1526", "2827", "508", "72886", "", "", "23837", "-7313",
"16524", "1976", "11492", "6066", "", "1976", "38034", "110920",
"", "", "", "3000", "9", "2453", "24", "5484", "1062", "3876",
"15908", "", "1990", "246", "1947", "139", "3381", "7703", "23611",
"", "25922", "", "61262", "125", "87309", "110920"), V7 = c("2012-12",
"", "", "", "14778", "33310", "48088", "7885", "505", "1144",
"2132", "700", "60454", "", "", "17697", "-5843", "11854", "1469",
"10537", "7473", "", "2011", "33344", "93798", "", "", "", "2549",
"", "2012", "240", "4729", "895", "3912", "14337", "", "2988",
"", "1872", "100", "2786", "7746", "22083", "", "22835", "",
"48342", "538", "71715", "93798"), V8 = c("2011-12", "", "",
"", "9983", "34643", "44626", "5427", "", "215", "1745", "745",
"52758", "", "", "14400", "-4797", "9603", "790", "7346", "1578",
"", "499", "19816", "72574", "", "", "", "1218", "", "588", "197",
"2538", "547", "3825", "8913", "", "2986", "", "287", "44", "2199",
"5516", "14429", "", "20264", "", "37605", "276", "58145", "72574"
), V9 = c("2010-12", "", "", "", "13630", "21345", "34975", "4252",
"", "259", "1326", "750", "41562", "", "", "11771", "-4012",
"7759", "523", "6256", "1044", "265", "442", "16289", "57851",
"", "", "", "3465", "", "483", "37", "3256", "394", "2361", "9996",
"", "", "", "", "35", "1579", "1614", "11610", "", "18235", "",
"27868", "138", "46241", "57851"), V10 = c("2009-12", "", "",
"", "10198", "14287", "24485", "3178", "", "644", "836", "23",
"29167", "", "", "8130", "-3286", "4845", "129", "4903", "775",
"263", "416", "11330", "40497", "", "", "", "", "", "216", "",
"1264", "285", "982", "2747", "", "", "", "", "42", "1703", "1745",
"4493", "", "0", "15817", "20082", "105", "36004", "40497"),
V11 = c("2008-12", "", "", "", "8657", "7189", "15846", "2642",
"", "286", "1404", "", "20178", "", "", "7576", "-2342",
"5234", "85", "4840", "997", "", "434", "11589", "31768",
"", "", "", "", "", "178", "82", "1013", "218", "812", "2302",
"", "", "", "13", "30", "1184", "1227", "3529", "", "0",
"14450", "13562", "227", "28239", "31768")), .Names = c("V1",
"V2", "V3", "V4", "V5", "V6", "V7", "V8", "V9", "V10", "V11"), class = "data.frame", row.names = c(NA,
-51L)), Amazon = structure(list(V1 = c("Fiscal year ends in December. USD in millions except per share data.",
"Assets", "Current assets", "Cash", "Cash and cash equivalents",
"Short-term investments", "Total cash", "Receivables", "Inventories",
"Deferred income taxes", "Total current assets", "Non-current assets",
"Property, plant and equipment", "Land", "Fixtures and equipment",
"Other properties", "Property and equipment, at cost", "Accumulated Depreciation",
"Property, plant and equipment, net", "Goodwill", "Intangible assets",
"Deferred income taxes", "Other long-term assets", "Total non-current assets",
"Total assets", "Liabilities and stockholders' equity", "Liabilities",
"Current liabilities", "Short-term debt", "Accounts payable",
"Accrued liabilities", "Deferred revenues", "Total current liabilities",
"Non-current liabilities", "Long-term debt", "Capital leases",
"Deferred taxes liabilities", "Other long-term liabilities",
"Total non-current liabilities", "Total liabilities", "Stockholders' equity",
"Common stock", "Additional paid-in capital", "Retained earnings",
"Treasury stock", "Accumulated other comprehensive income", "Total stockholders' equity",
"Total liabilities and stockholders' equity"), V2 = c("2017-12",
"", "", "", "20522", "10464", "30986", "13164", "16047", "",
"60197", "", "", "23718", "38387", "6468", "68573", "-19707",
"48866", "13350", "3371", "", "5526", "71113", "131310", "",
"", "", "", "34616", "18170", "5097", "57883", "", "24743", "13183",
"1994", "5798", "45718", "103601", "", "5", "21389", "8636",
"-1837", "-484", "27709", "131310"), V3 = c("2016-12", "", "",
"", "19334", "6647", "25981", "8339", "11461", "", "45781", "",
"", "13998", "25989", "2454", "42441", "-13327", "29114", "3784",
"854", "", "3869", "37621", "83402", "", "", "", "", "25309",
"13739", "4768", "43816", "", "7694", "7519", "1787", "3301",
"20301", "64117", "", "5", "17186", "4916", "-1837", "-985",
"19285", "83402"), V4 = c("2015-12", "", "", "", "15890", "3918",
"19808", "6423", "10243", "", "36474", "", "", "9770", "18417",
"1866", "30053", "-8215", "21838", "3759", "762", "", "2611",
"28970", "65444", "", "", "", "", "20397", "10384", "3118", "33899",
"", "8235", "5948", "2016", "1962", "18161", "52060", "", "5",
"13394", "2545", "-1837", "-723", "13384", "65444"), V5 = c("2014-12",
"", "", "", "14557", "2859", "17416", "5612", "8299", "", "31327",
"", "", "7150", "14213", "1367", "22730", "-5763", "16967", "3319",
"764", "", "2128", "23178", "54505", "", "", "", "", "16459",
"9807", "1823", "28089", "", "8265", "4224", "1531", "1655",
"15675", "43764", "", "5", "11135", "1949", "-1837", "-511",
"10741", "54505"), V6 = c("2013-12", "", "", "", "8658", "3789",
"12447", "4767", "7411", "", "24625", "", "", "4584", "9274",
"951", "14809", "-3860", "10949", "2655", "645", "", "1285",
"15534", "40159", "", "", "", "", "15133", "6688", "1159", "22980",
"", "3191", "1990", "1028", "1224", "7433", "30413", "", "5",
"9573", "2190", "-1837", "-185", "9746", "40159"), V7 = c("2012-12",
"", "", "", "8084", "3364", "11448", "3364", "6031", "453", "21296",
"", "", "2966", "6228", "388", "9582", "-2522", "7060", "2552",
"725", "123", "799", "11259", "32555", "", "", "", "", "13318",
"5684", "", "19002", "", "3084", "746", "336", "1195", "5361",
"24363", "", "5", "8347", "1916", "-1837", "-239", "8192", "32555"
), V8 = c("2011-12", "", "", "", "5269", "4307", "9576", "2571",
"4992", "351", "17490", "", "", "", "3216", "2570", "5786", "-1369",
"4417", "1955", "647", "28", "741", "7788", "25278", "", "",
"", "", "11145", "3751", "", "14896", "", "255", "1160", "",
"1210", "2625", "17521", "", "5", "6990", "1955", "-877", "-316",
"7757", "25278"), V9 = c("2010-12", "", "", "", "3777", "4985",
"8762", "1587", "3202", "196", "13747", "", "", "", "2505", "751",
"3256", "-842", "2414", "1349", "563", "22", "702", "5050", "18797",
"", "", "", "", "8051", "2321", "", "10372", "", "184", "457",
"", "920", "1561", "11933", "", "5", "6325", "1324", "-600",
"-190", "6864", "18797"), V10 = c("2009-12", "", "", "", "3444",
"2922", "6366", "988", "2171", "272", "9797", "", "", "", "1500",
"415", "1915", "-625", "1290", "1234", "567", "18", "907", "4016",
"13813", "", "", "", "", "5605", "1759", "", "7364", "", "109",
"143", "", "940", "1192", "8556", "", "5", "5736", "172", "-600",
"-56", "5257", "13813"), V11 = c("2008-12", "", "", "", "2769",
"958", "3727", "827", "1399", "204", "6157", "", "", "", "1243",
"166", "1409", "-555", "854", "438", "160", "145", "560", "2157",
"8314", "", "", "", "59", "3594", "1093", "", "4746", "", "409",
"124", "", "363", "896", "5642", "", "4", "4121", "-730", "-600",
"-123", "2672", "8314")), .Names = c("V1", "V2", "V3", "V4",
"V5", "V6", "V7", "V8", "V9", "V10", "V11"), class = "data.frame", row.names = c(NA,
-48L))), .Names = c("Alibaba", "Alphabet", "Amazon"))
