回答此问题可获得 20 贡献值,回答如果被采纳可获得 50 分。
<p><a href="https://i.stack.imgur.com/lBNGw.png" rel="nofollow noreferrer"><img src="https://i.stack.imgur.com/lBNGw.png" alt="enter image description here"/></a></p>
<p>你好,
我有一个数据集,在A列中有唯一的Id变量,然后对每个病人进行后续的肾脏扫描。这是一个csv文件,我想重塑它的长格式使用R如果可能的话。
每个参与者都可以进行1-17次肾脏扫描。你知道吗</p>
<p>还有一些Id被列为“否”,表示不接收扫描。
我想把它改造成类似这样的东西</p>
<p><a href="https://i.stack.imgur.com/XRfmM.png" rel="nofollow noreferrer"><img src="https://i.stack.imgur.com/XRfmM.png" alt="enter image description here"/></a></p>
<p>我知道以前关于这个问题每年组织,我有来自参与者的扫描,在年日期格式yyyy-mm-dd发生多次</p>
<p>请参阅下面的数据</p>
<pre><code>structure(list(id = c(1010001, 1010002, 1010004, 1010005, 1010006,
1010007), `GFR Scans?` = c("Yes", "Yes", "Yes", "Yes", "Yes",
"No"), `1. Date of renal scan:` = structure(c(1133913600, 1196812800,
1237334400, 1124150400, 1192060800, NA), class = c("POSIXct",
"POSIXt"), tzone = "UTC"), `1. Type of renal scan:` = c("DTPA",
"DTPA", "DTPA", "DTPA", "DTPA", NA), `1. GFR mL/1.73 sq.m` = c(18,
13, 68, 117, 46, NA), `1. Pre/Post tx?` = c("Pre", "Pre", "Post",
"Post", "Pre", NA), `2. Date of renal scan:` = structure(c(1146528000,
1214524800, NA, 1151366400, 1245974400, NA), class = c("POSIXct",
"POSIXt"), tzone = "UTC"), `2. Type of renal scan:` = c("DTPA",
"DTPA", NA, "DTPA", "DTPA", NA), `2. GFR mL/1.73 sq.m` = c(86,
110, NA, 148, 123, NA), `2. Pre/Post tx?` = c("Post", "Post",
NA, "Post", "Post", NA), `3. Date of renal scan:` = structure(c(NA,
1219104000, NA, 1184025600, NA, NA), class = c("POSIXct", "POSIXt"
), tzone = "UTC"), `3. Type of renal scan:` = c(NA, "DTPA", NA,
"DTPA", NA, NA), `3. GFR mL/1.73 sq.m` = c(NA, 92, NA, 166, NA,
NA), `3. Pre/Post tx?` = c(NA, "Post", NA, "Post", NA, NA), `4. Date of renal scan:` = structure(c(NA,
1242691200, NA, 1213660800, NA, NA), class = c("POSIXct", "POSIXt"
), tzone = "UTC"), `4. Type of renal scan:` = c(NA, "DTPA", NA,
"DTPA", NA, NA), `4. GFR mL/1.73 sq.m` = c(NA, 36, NA, 171, NA,
NA), `4. Pre/Post tx?` = c(NA, "Post", NA, "Post", NA, NA), `5. Date of renal scan:` = structure(c(NA,
NA, NA, 1288656000, NA, NA), class = c("POSIXct", "POSIXt"), tzone = "UTC"),
`5. Type of renal scan:` = c(NA, NA, NA, "DTPA", NA, NA),
`5. GFR mL/1.73 sq.m` = c(NA, NA, NA, 105, NA, NA), `5. Pre/Post tx?` = c(NA,
NA, NA, "Post", NA, NA), `6. Date of renal scan:` = structure(c(NA,
NA, NA, 1323129600, NA, NA), class = c("POSIXct", "POSIXt"
), tzone = "UTC"), `6. Type of renal scan:` = c(NA, NA, NA,
"DTPA", NA, NA), `6. GFR mL/1.73 sq.m` = c(NA, NA, NA, 103,
NA, NA), `6. Pre/Post tx?` = c(NA, NA, NA, "Post", NA, NA
), `7. Date of renal scan:` = structure(c(NA, NA, NA, 1355184000,
NA, NA), class = c("POSIXct", "POSIXt"), tzone = "UTC"),
`7. Type of renal scan:` = c(NA, NA, NA, "DTPA", NA, NA),
`7. GFR mL/1.73 sq.m` = c(NA, NA, NA, 98, NA, NA), `7. Pre/Post tx?` = c(NA,
NA, NA, "Post", NA, NA), `8. Date of renal scan:` = c(NA,
NA, NA, NA, NA, NA), `8. Type of renal scan:` = c(NA, NA,
NA, NA, NA, NA), `8. GFR mL/1.73 sq.m` = c(NA, NA, NA, NA,
NA, NA), `8. Pre/Post tx?` = c(NA, NA, NA, NA, NA, NA), `9. Date of renal scan:` = c(NA,
NA, NA, NA, NA, NA), `9. Type of renal scan:` = c(NA, NA,
NA, NA, NA, NA), `9. GFR mL/1.73 sq.m` = c(NA, NA, NA, NA,
NA, NA), `9. Pre/Post tx?` = c(NA, NA, NA, NA, NA, NA), `10. Date of renal scan:` = c(NA,
NA, NA, NA, NA, NA), `10. Type of renal scan:` = c(NA, NA,
NA, NA, NA, NA), `10. GFR mL/1.73 sq.m` = c(NA, NA, NA, NA,
NA, NA), `10. Pre/Post tx?` = c(NA, NA, NA, NA, NA, NA),
`11. Date of renal scan:` = c(NA, NA, NA, NA, NA, NA), `11. Type of renal scan:` = c(NA,
NA, NA, NA, NA, NA), `11. GFR mL/1.73 sq.m` = c(NA, NA, NA,
NA, NA, NA), `11. Pre/Post tx?` = c(NA, NA, NA, NA, NA, NA
), `12. Date of renal scan:` = c(NA, NA, NA, NA, NA, NA),
`12. Type of renal scan:` = c(NA, NA, NA, NA, NA, NA), `12. GFR mL/1.73 sq.m` = c(NA,
NA, NA, NA, NA, NA), `12. Pre/Post tx?` = c(NA, NA, NA, NA,
NA, NA), `13. Date of renal scan:` = c(NA, NA, NA, NA, NA,
NA), `13. Type of renal scan:` = c(NA, NA, NA, NA, NA, NA
), `13. GFR mL/1.73 sq.m` = c(NA, NA, NA, NA, NA, NA), `13. Pre/Post tx?` = c(NA,
NA, NA, NA, NA, NA), `14. Date of renal scan:` = c(NA, NA,
NA, NA, NA, NA), `14. Type of renal scan:` = c(NA, NA, NA,
NA, NA, NA), `14. GFR mL/1.73 sq.m` = c(NA, NA, NA, NA, NA,
NA), `14. Pre/Post tx?` = c(NA, NA, NA, NA, NA, NA), `15. Date of renal scan:` = c(NA,
NA, NA, NA, NA, NA), `15. Type of renal scan:` = c(NA, NA,
NA, NA, NA, NA), `15. GFR mL/1.73 sq.m` = c(NA, NA, NA, NA,
NA, NA), `15. Pre/Post tx?` = c(NA, NA, NA, NA, NA, NA),
`16. Date of renal scan:` = c(NA, NA, NA, NA, NA, NA), `16. Type of renal scan:` = c(NA,
NA, NA, NA, NA, NA), `16. GFR mL/1.73 sq.m` = c(NA, NA, NA,
NA, NA, NA), `16. Pre/Post tx?` = c(NA, NA, NA, NA, NA, NA
), `17. Date of renal scan:` = c(NA, NA, NA, NA, NA, NA),
`17. Type of renal scan:` = c(NA, NA, NA, NA, NA, NA), `17. GFR mL/1.73 sq.m` = c(NA,
NA, NA, NA, NA, NA), `17. Pre/Post tx?` = c(NA, NA, NA, NA,
NA, NA)), row.names = c(NA, -6L), class = c("tbl_df", "tbl", "data.frame"))
</code></pre>
<p>第一个图像是原始的宽格式,第二个图像是我想得到的。关于这个问题,其他从宽到长的答案都没有帮助我,因为我涉及多个专栏。你知道吗</p>
<p>例如,id 1010001已经进行了两次扫描,我需要一个接一个地列出,而不是放在另一个旁边(参见图2)。你知道吗</p>
<p>我非常感谢你的帮助。你知道吗</p>