程序员经验分享-hwhale

R - lubridate：将持续时间分割为“子持续时间”

2023-12-11

我有一个 R 整洁的数据集my_durations其中数据框中的每个案例对应于在一段时间内采集的样本，如下所示：

> glimpse(my_durations)
Observations: 300
Variables: 5
$ sample_id  <int> 2, 8, 25, 41, 59, 70, 98, 100, 105, 106, 108, 114, 119, 126,...
$ site_id    <int> 2, 13, 12, 23, 47, 23, 66, 72, 72, 50, 50, 54, 45, 73, 48, 7...
$ start_date <dttm> 2015-04-12, 2015-06-10, 2015-07-02, 2015-07-22, 2015-07-29,...
$ end_date   <dttm> 2015-05-14, 2015-06-18, 2015-07-08, 2015-07-24, 2015-07-30,...
$ duration   <time> 32 days, 8 days, 6 days, 2 days, 1 days, 4 days, 12 days, 2...

Where sample_id是该样本的唯一 ID，site_id只是一个用于跟踪样本采集位置的 ID，start_date and end_date是采样开始和结束的时间，以及duration只是时间上的差异start_date and end_date.

这是完整的dput()对于数据集：

structure(list(sample_id = c(2L, 8L, 25L, 41L, 59L, 70L, 98L, 
100L, 105L, 106L, 108L, 114L, 119L, 126L, 128L, 146L, 151L, 164L, 
167L, 169L, 175L, 190L, 198L, 200L, 222L, 237L, 254L, 273L, 276L, 
280L, 281L, 290L, 300L, 305L, 314L, 345L, 354L, 371L, 376L, 379L, 
380L, 382L, 383L, 389L, 401L, 410L, 413L, 424L, 439L, 466L, 469L, 
476L, 482L, 484L, 499L, 505L, 517L, 538L, 580L, 582L, 583L, 584L, 
635L, 650L, 655L, 658L, 662L, 671L, 674L, 702L, 709L, 710L, 712L, 
715L, 716L, 724L, 734L, 735L, 738L, 785L, 789L, 793L, 794L, 803L, 
833L, 856L, 859L, 865L, 866L, 888L, 895L, 898L, 900L, 907L, 938L, 
979L, 980L, 988L, 991L, 1009L, 1026L, 1031L, 1034L, 1050L, 1058L, 
1061L, 1063L, 1066L, 1069L, 1077L, 1081L, 1091L, 1092L, 1099L, 
1100L, 1108L, 1115L, 1119L, 1143L, 1149L, 1158L, 1180L, 1190L, 
1195L, 1198L, 1207L, 1231L, 1234L, 1236L, 1242L, 1249L, 1250L, 
1271L, 1288L, 1294L, 1311L, 1312L, 1313L, 1319L, 1337L, 1341L, 
1345L, 1349L, 1360L, 1374L, 1379L, 1389L, 1393L, 1396L, 1401L, 
1404L, 1407L, 1422L, 1434L, 1438L, 1448L, 1454L, 1463L, 1473L, 
1489L, 1508L, 1514L, 1518L, 1531L, 1551L, 1564L, 1565L, 1571L, 
1572L, 1597L, 1602L, 1619L, 1624L, 1629L, 1630L, 1659L, 1661L, 
1666L, 1669L, 1672L, 1678L, 1690L, 1697L, 1700L, 1703L, 1707L, 
1715L, 1719L, 1725L, 1732L, 1737L, 1739L, 1754L, 1771L, 1788L, 
1790L, 1796L, 1799L, 1802L, 1805L, 1813L, 1814L, 1832L, 1839L, 
1844L, 1848L, 1873L, 1887L, 1893L, 1900L, 1901L, 1917L, 1920L, 
1939L, 1948L, 1954L, 1956L, 1968L, 1971L, 1975L, 1979L, 2008L, 
2015L, 2019L, 2021L, 2028L, 2035L, 2048L, 2062L, 2071L, 2072L, 
2075L, 2085L, 2090L, 2091L, 2100L, 2106L, 2115L, 2172L, 2178L, 
2181L, 2221L, 2225L, 2228L, 2230L, 2231L, 2237L, 2241L, 2265L, 
2266L, 2271L, 2282L, 2284L, 2311L, 2319L, 2337L, 2377L, 2405L, 
2409L, 2412L, 2429L, 2434L, 2460L, 2483L, 2485L, 2488L, 2490L, 
2500L, 2513L, 2520L, 2521L, 2527L, 2539L, 2555L, 2569L, 2599L, 
2605L, 2610L, 2635L, 2640L, 2641L, 2656L, 2667L, 2689L, 2705L, 
2720L, 2747L, 2753L, 2756L, 2761L, 2769L, 2772L, 2809L, 2816L, 
2818L, 2821L, 2823L, 2828L, 2837L, 2838L), site_id = c(2L, 13L, 
12L, 23L, 47L, 23L, 66L, 72L, 72L, 50L, 50L, 54L, 45L, 73L, 48L, 
73L, 84L, 85L, 85L, 52L, 66L, 73L, 76L, 95L, 61L, 73L, 106L, 
72L, 108L, 90L, 91L, 44L, 103L, 90L, 108L, 105L, 122L, 131L, 
133L, 133L, 133L, 133L, 133L, 52L, 138L, 136L, 113L, 146L, 55L, 
147L, 113L, 151L, 147L, 117L, 74L, 160L, 55L, 73L, 74L, 73L, 
151L, 73L, 169L, 168L, 73L, 73L, 44L, 73L, 182L, 74L, 73L, 105L, 
160L, 184L, 184L, 74L, 74L, 73L, 113L, 199L, 73L, 202L, 198L, 
73L, 199L, 74L, 73L, 74L, 74L, 198L, 213L, 212L, 213L, 44L, 160L, 
221L, 218L, 230L, 226L, 201L, 74L, 73L, 230L, 184L, 161L, 74L, 
74L, 73L, 214L, 74L, 73L, 73L, 74L, 73L, 74L, 73L, 74L, 74L, 
226L, 73L, 74L, 74L, 201L, 201L, 73L, 74L, 242L, 226L, 74L, 74L, 
113L, 73L, 249L, 73L, 249L, 74L, 247L, 240L, 73L, 74L, 44L, 73L, 
201L, 74L, 74L, 191L, 73L, 254L, 201L, 248L, 237L, 260L, 73L, 
226L, 74L, 191L, 226L, 259L, 73L, 226L, 74L, 237L, 74L, 248L, 
275L, 276L, 276L, 277L, 277L, 260L, 280L, 280L, 160L, 244L, 262L, 
74L, 44L, 74L, 44L, 73L, 74L, 73L, 73L, 74L, 74L, 73L, 74L, 73L, 
244L, 74L, 73L, 105L, 74L, 74L, 294L, 73L, 223L, 223L, 248L, 
295L, 73L, 74L, 74L, 295L, 73L, 269L, 73L, 201L, 199L, 74L, 74L, 
74L, 271L, 292L, 105L, 292L, 199L, 267L, 292L, 305L, 74L, 74L, 
295L, 309L, 74L, 310L, 310L, 271L, 316L, 74L, 73L, 305L, 73L, 
113L, 74L, 74L, 73L, 191L, 74L, 245L, 226L, 321L, 241L, 320L, 
113L, 323L, 73L, 320L, 73L, 74L, 74L, 73L, 73L, 191L, 74L, 73L, 
74L, 74L, 74L, 73L, 245L, 113L, 73L, 16L, 73L, 348L, 350L, 245L, 
306L, 191L, 245L, 350L, 244L, 348L, 113L, 191L, 306L, 73L, 73L, 
306L, 350L, 73L, 361L, 245L, 73L, 114L, 191L, 73L, 357L, 361L, 
376L, 364L, 360L, 378L, 357L, 73L, 380L, 73L, 350L, 364L), start_date = structure(c(1428796800, 
1433894400, 1435795200, 1437523200, 1438128000, 1438300800, 1437609600, 
1438905600, 1438905600, 1438041600, 1438041600, 1438646400, 1438560000, 
1439424000, 1438819200, 1440115200, 1439856000, 1440115200, 1440115200, 
1438041600, 1440460800, 1441497600, 1440547200, 1441238400, 1438992000, 
1442707200, 1443225600, 1439337600, 1440633600, 1442707200, 1442707200, 
1444089600, 1442534400, 1444348800, 1443225600, 1444694400, 1445817600, 
1445472000, 1446854400, 1446854400, 1446854400, 1446854400, 1446854400, 
1441584000, 1447459200, 1447372800, 1444348800, 1447977600, 1448064000, 
1448064000, 1446940800, 1449014400, 1448064000, 1445904000, 1449878400, 
1449792000, 1449878400, 1451001600, 1452729600, 1452902400, 1452470400, 
1452988800, 1453075200, 1454889600, 1455235200, 1455408000, 1454976000, 
1455753600, 1453766400, 1456963200, 1457308800, 1456876800, 1456876800, 
1456790400, 1457395200, 1457827200, 1458086400, 1458172800, 1455580800, 
1460073600, 1460419200, 1456617600, 1460073600, 1460851200, 1460073600, 
1462233600, 1462320000, 1462492800, 1462665600, 1460073600, 1462579200, 
1462492800, 1462579200, 1462838400, 1463443200, 1463702400, 1463616000, 
1464912000, 1464825600, 1465171200, 1466035200, 1466121600, 1464912000, 
1461888000, 1464652800, 1466467200, 1466553600, 1466640000, 1462579200, 
1466726400, 1466985600, 1467331200, 1467331200, 1467590400, 1467590400, 
1467936000, 1468108800, 1468281600, 1468368000, 1469145600, 1469404800, 
1470009600, 1470009600, 1470009600, 1470441600, 1470787200, 1471219200, 
1470096000, 1470268800, 1470873600, 1467590400, 1471564800, 1471478400, 
1472256000, 1471478400, 1472515200, 1471219200, 1472256000, 1472601600, 
1472860800, 1472688000, 1473292800, 1472947200, 1473638400, 1474243200, 
1474156800, 1475193600, 1475193600, 1474761600, 1475193600, 1471046400, 
1475193600, 1476316800, 1473724800, 1476748800, 1476403200, 1476748800, 
1477785600, 1478044800, 1477958400, 1479168000, 1478304000, 1479254400, 
1473811200, 1477699200, 1476576000, 1476576000, 1477872000, 1478476800, 
1475193600, 1477094400, 1477094400, 1479859200, 1479340800, 1475884800, 
1480896000, 1480464000, 1480982400, 1480982400, 1481241600, 1481846400, 
1482192000, 1482451200, 1482537600, 1482624000, 1482969600, 1483228800, 
1483401600, 1481846400, 1483747200, 1483920000, 1483488000, 1484438400, 
1484956800, 1485216000, 1485388800, 1473292800, 1478995200, 1485216000, 
1485216000, 1485907200, 1485907200, 1486339200, 1485216000, 1486512000, 
1485216000, 1487116800, 1487030400, 1485388800, 1487721600, 1487808000, 
1488153600, 1487289600, 1485129600, 1488240000, 1485129600, 1485388800, 
1480896000, 1485129600, 1488412800, 1489104000, 1490054400, 1485216000, 
1490054400, 1490400000, 1490572800, 1490659200, 1489622400, 1489881600, 
1491436800, 1491523200, 1488412800, 1491782400, 1488758400, 1491868800, 
1492473600, 1492646400, 1492387200, 1494633600, 1494288000, 1494288000, 
1495152000, 1494201600, 1494979200, 1491868800, 1495065600, 1496102400, 
1494979200, 1497052800, 1497052800, 1497225600, 1497657600, 1497744000, 
1498435200, 1499212800, 1499904000, 1501372800, 1502409600, 1502582400, 
1502668800, 1502236800, 1501718400, 1504569600, 1502841600, 1505174400, 
1503878400, 1503964800, 1505260800, 1503964800, 1505606400, 1505865600, 
1503964800, 1504656000, 1503878400, 1505520000, 1508716800, 1503964800, 
1509580800, 1510704000, 1503964800, 1503964800, 1511481600, 1508889600, 
1512518400, 1513987200, 1513555200, 1514764800, 1516665600, 1515456000, 
1508889600, 1517097600, 1511654400, 1510012800, 1518393600, 1515456000, 
1519257600, 1518825600, 1519344000, 1503964800, 1511654400), class = c("POSIXct", 
"POSIXt"), tzone = "UTC"), end_date = structure(c(1431561600, 
1434585600, 1436313600, 1437696000, 1438214400, 1438646400, 1438646400, 
1439078400, 1439078400, 1438128000, 1438128000, 1439164800, 1438905600, 
1439942400, 1438992000, 1440288000, 1440460800, 1440720000, 1440720000, 
1438128000, 1440547200, 1441584000, 1441238400, 1441670400, 1439769600, 
1443052800, 1444003200, 1439769600, 1441324800, 1444348800, 1444348800, 
1444694400, 1444521600, 1444867200, 1445126400, 1445212800, 1446336000, 
1445558400, 1447113600, 1447286400, 1447372800, 1447545600, 1447632000, 
1442707200, 1447545600, 1448236800, 1444608000, 1448236800, 1449014400, 
1449273600, 1449273600, 1449532800, 1449446400, 1445990400, 1450051200, 
1450137600, 1450396800, 1451174400, 1452902400, 1452988800, 1453075200, 
1453075200, 1454716800, 1455148800, 1455321600, 1455494400, 1455580800, 
1455840000, 1454976000, 1457049600, 1457395200, 1457395200, 1457395200, 
1457395200, 1457481600, 1457913600, 1458172800, 1458345600, 1458518400, 
1460419200, 1460592000, 1457222400, 1460592000, 1460937600, 1461801600, 
1462320000, 1462406400, 1462665600, 1462752000, 1462924800, 1462924800, 
1463097600, 1463270400, 1463443200, 1464134400, 1464912000, 1464912000, 
1465084800, 1465257600, 1465776000, 1466121600, 1466208000, 1466208000, 
1463702400, 1466553600, 1466553600, 1466640000, 1466726400, 1466726400, 
1466812800, 1467072000, 1467417600, 1467417600, 1467676800, 1467676800, 
1468022400, 1468195200, 1468368000, 1468972800, 1469232000, 1469491200, 
1470096000, 1470614400, 1470614400, 1470528000, 1470873600, 1471305600, 
1471305600, 1470355200, 1471219200, 1471564800, 1471651200, 1471910400, 
1472342400, 1472083200, 1472601600, 1472601600, 1472601600, 1472688000, 
1473120000, 1473206400, 1473379200, 1473638400, 1473811200, 1474502400, 
1474761600, 1475280000, 1475366400, 1475452800, 1475712000, 1472515200, 
1475884800, 1476403200, 1475625600, 1476835200, 1477180800, 1477440000, 
1477872000, 1478131200, 1478649600, 1479254400, 1479513600, 1479600000, 
1476316800, 1478476800, 1477526400, 1477699200, 1478304000, 1478649600, 
1476576000, 1477699200, 1480204800, 1480464000, 1480636800, 1476403200, 
1480982400, 1480982400, 1481241600, 1481587200, 1481673600, 1481932800, 
1482278400, 1482537600, 1482624000, 1482796800, 1483056000, 1483315200, 
1483488000, 1483660800, 1483833600, 1484006400, 1484006400, 1484524800, 
1485043200, 1485388800, 1485475200, 1474761600, 1480809600, 1485734400, 
1485734400, 1485993600, 1485993600, 1486425600, 1486425600, 1486598400, 
1486684800, 1487203200, 1487462400, 1487635200, 1487808000, 1487894400, 
1488240000, 1488240000, 1488672000, 1488844800, 1488931200, 1488931200, 
1485648000, 1489449600, 1489449600, 1489536000, 1490140800, 1490313600, 
1490400000, 1490572800, 1490659200, 1490745600, 1491004800, 1489968000, 
1491523200, 1491609600, 1491609600, 1491868800, 1491868800, 1492128000, 
1492560000, 1492732800, 1492992000, 1494720000, 1494892800, 1494979200, 
1495670400, 1495843200, 1495670400, 1495929600, 1495324800, 1496188800, 
1496188800, 1497139200, 1497139200, 1497312000, 1497744000, 1497830400, 
1498953600, 1499299200, 1499990400, 1501459200, 1502496000, 1502668800, 
1502755200, 1503446400, 1503446400, 1504656000, 1503100800, 1505260800, 
1505260800, 1505260800, 1505865600, 1506211200, 1506297600, 1506470400, 
1506470400, 1507075200, 1507248000, 1508025600, 1509235200, 1509321600, 
1509753600, 1510790400, 1510790400, 1510790400, 1511568000, 1511913600, 
1513123200, 1514160000, 1514764800, 1516320000, 1516752000, 1516838400, 
1516838400, 1517184000, 1517270400, 1518480000, 1518998400, 1519171200, 
1519344000, 1519344000, 1519430400, 1519689600, 1519689600), class = c("POSIXct", 
"POSIXt"), tzone = "UTC"), duration = structure(c(32, 8, 6, 2, 
1, 4, 12, 2, 2, 1, 1, 6, 4, 6, 2, 2, 7, 7, 7, 1, 1, 1, 8, 5, 
9, 4, 9, 5, 8, 19, 19, 7, 23, 6, 22, 6, 6, 1, 3, 5, 6, 8, 9, 
13, 1, 10, 3, 3, 11, 14, 27, 6, 16, 1, 2, 4, 6, 2, 2, 1, 7, 1, 
19, 3, 1, 1, 7, 1, 14, 1, 1, 6, 6, 7, 1, 1, 1, 2, 34, 4, 2, 7, 
6, 1, 20, 1, 1, 2, 1, 33, 4, 7, 8, 7, 8, 14, 15, 2, 5, 7, 1, 
1, 15, 21, 22, 1, 1, 1, 48, 1, 1, 1, 1, 1, 1, 1, 1, 1, 7, 1, 
1, 1, 7, 7, 1, 1, 1, 14, 1, 4, 46, 1, 5, 1, 7, 1, 16, 4, 1, 3, 
6, 1, 8, 2, 3, 7, 1, 2, 8, 6, 17, 8, 1, 22, 1, 9, 8, 1, 1, 8, 
1, 14, 4, 29, 9, 11, 13, 5, 2, 16, 7, 36, 7, 15, 6, 1, 6, 3, 
7, 5, 1, 1, 1, 1, 2, 1, 1, 1, 21, 1, 1, 6, 1, 1, 2, 1, 17, 21, 
6, 6, 1, 1, 1, 14, 1, 17, 1, 5, 26, 1, 1, 1, 11, 41, 7, 44, 41, 
55, 50, 12, 5, 1, 59, 4, 2, 1, 1, 16, 1, 1, 1, 37, 1, 36, 3, 
1, 1, 7, 1, 7, 8, 6, 19, 8, 47, 3, 1, 14, 1, 1, 1, 1, 1, 6, 1, 
1, 1, 1, 1, 1, 14, 20, 1, 3, 1, 16, 15, 7, 26, 8, 7, 29, 28, 
39, 29, 6, 62, 2, 1, 79, 79, 1, 35, 7, 2, 14, 18, 1, 16, 92, 
1, 65, 98, 7, 43, 1, 6, 1, 182, 93), class = "difftime", units = "days")), class = c("tbl_df", 
"tbl", "data.frame"), row.names = c(NA, -300L))

我现在面临的挑战是，对于任何duration这比n天（让我们一起去n == 7现在），我想将持续时间“分割”成n- 天长的片段。例如，对于sample_id == 2, the duration是 32 天，所以我想将其分为四个 7 天的部分，加上一个 4 天的部分。最后，原始行为sample_id == 2会变成five每行都有start_date, end_date, and duration对应于五个部分中的每个部分。我想要一个名为segment_id识别每个新创建的段，同时保留所有原始列。顺便说一句，对于sample_ids 具有原始的durations 短于n，我想保持它们原样，他们会得到segment_id == 1.

我很困惑。有没有一种相当“整洁”的方法来实现这一目标？预先非常感谢您。


我们可以创建列表列并unnest them:

library(tidyverse)
library(lubridate)
df %>% group_by(sample_id,site_id) %>% 
  mutate(duration_new = (as.numeric(duration)-1) %>% seq(0,.,by=7) %>% c(duration) %>% diff %>% list,
         start_date_new = list(start_date + days(c(0,cumsum(head(duration_new[[1]],-1))))),
         end_date_new = list(start_date + days(cumsum(duration_new[[1]]))),
         segment_id = list(seq_along(duration_new[[1]]))) %>% 
  unnest %>%
  ungroup
# # A tibble: 619 x 9
#    sample_id site_id start_date          end_date            duration duration_new start_date_new      end_date_new        segment_id
#        <int>   <int> <dttm>              <dttm>              <time>          <dbl> <dttm>              <dttm>                   <int>
#  1         2       2 2015-04-12 00:00:00 2015-05-14 00:00:00 32                  7 2015-04-12 00:00:00 2015-04-19 00:00:00          1
#  2         2       2 2015-04-12 00:00:00 2015-05-14 00:00:00 32                  7 2015-04-19 00:00:00 2015-04-26 00:00:00          2
#  3         2       2 2015-04-12 00:00:00 2015-05-14 00:00:00 32                  7 2015-04-26 00:00:00 2015-05-03 00:00:00          3
#  4         2       2 2015-04-12 00:00:00 2015-05-14 00:00:00 32                  7 2015-05-03 00:00:00 2015-05-10 00:00:00          4
#  5         2       2 2015-04-12 00:00:00 2015-05-14 00:00:00 32                  4 2015-05-10 00:00:00 2015-05-14 00:00:00          5
#  6         8      13 2015-06-10 00:00:00 2015-06-18 00:00:00 8                   7 2015-06-10 00:00:00 2015-06-17 00:00:00          1
#  7         8      13 2015-06-10 00:00:00 2015-06-18 00:00:00 8                   1 2015-06-17 00:00:00 2015-06-18 00:00:00          2
#  8        25      12 2015-07-02 00:00:00 2015-07-08 00:00:00 6                   6 2015-07-02 00:00:00 2015-07-08 00:00:00          1
#  9        41      23 2015-07-22 00:00:00 2015-07-24 00:00:00 2                   2 2015-07-22 00:00:00 2015-07-24 00:00:00          1
# 10        59      47 2015-07-29 00:00:00 2015-07-30 00:00:00 1                   1 2015-07-29 00:00:00 2015-07-30 00:00:00          1
# # ... with 609 more rows

取消嵌套是如何工作的

之后mutate呼叫, 的data.frame行数与以前相同，但有新列。这些新列都包含列表元素（列表元素），我们将它们称为列表列。

Then unnest垂直开发这些列表，我们得到额外的行，非列表列的列中的元素只是重复。

from ?unnest：如果您有一个列表列，这将使列表中的每个元素成为其自己的行。

how duration_new建成

我们使用简单的休息序列seq (see ?seq），但是 seq 没有​​给出最后一个元素（这是完整的持续时间），因此我们将其添加为c. The diff休息时间给出了各个持续时间。

您可以逐步执行此操作（选择直到管道之前，ctrl+enter）：

duration <- 32
(as.numeric(duration)-1) %>% seq(0,.,by=7) %>% c(duration) %>% diff %>% list

how start_date_new and end_date_new已建成

我们从 start_date 开始并添加累积的持续时间，对于start_date_new we add 0到第一个元素，所以我们让它们保持偏移。

本文内容由网友自发贡献，版权归原作者所有，本站不承担相应法律责任。如您发现有涉嫌抄袭侵权的内容，请联系:hwhale#tublm.com(使用前将#替换为@)

r

tidyverse

lubridate

R - lubridate：将持续时间分割为“子持续时间” 的相关文章

  • 在 dfm 中查找非英语标记并将其删除

    在 dfm 中如何检测非英语单词并将其删除 dftest lt data frame id 1 3 text c Holla this is a spanish word English online here Bonjour commen

  • 如何在R中用采样字符替换通配符

    我有以下顺序 s0 lt KDRH THLA RT HLAK 那里的通配符字符由 我想要做的是用该向量中的采样字符替换该字符 AADict lt c A R N D C E Q G H I L K M F P S T W Y V Since

  • 如何使用 python 读取或转换 .MAP 文件扩展名文档？

    是否有一种简单的方法 或可用的库 来读取 map 文件扩展文档中的数据 最好使用Python 或R 我正在使用 python PCRaster 中的建模工具 该工具使用 map 文件扩展名编写地图 然而有趣的是 我还没有找到可以打开和研究这

  • 将鼠标悬停在 ggplot 上时更新 CSS 和渲染工具提示以错误的顺序发生

    我在这里构建了一个虚拟应用程序 它为 ggplot 生成悬停消息 并确保它们保持在屏幕边界内 我编写了一些计算来确定所需的 CSS 更正并将其发送到服务器 它基于将悬停消息保留在此处的第一次尝试 SO问题 https stackoverfl

  • 计算网络中的周期

    最好的方法是什么 或者是否有任何方法可以实现对网络中的 3 个和 4 个周期进行计数 3 个周期等于从一个模式网络计算的三个节点 三角形 的连接组 4 个周期等于由两个模式网络计算的四个节点 方块 的连接组 如果我有这样的网络 onemod

  • 在 R Markdown 中，无论输出类型如何（pdf、html、docx），都在每个页面上创建页眉/页脚

    我想补充一下问题 当我编织为 pdf 时 那里的代码 也在下面 对我来说工作得非常好 但我不会获得 html 或 docx 输出的页眉 页脚 在 R Markdown 中 无论输出文档的类型如何 我可以做什么来为输出文档的每个页面生成页眉

  • 使用 dplyr::mutate 重新编码而不在函数中工作

    我正在尝试使用dplyr mutate across 重新编码 a 中的指定列tbl 单独使用它们效果很好 但我无法让它们在函数中工作 library dplyr library tidyr df1 lt tibble Q7 1 1 5 Q

  • 库存推文、文本挖掘、表情符号错误

    我希望您能够协助进行文本挖掘练习 我对 AAPL 推文感兴趣 并且能够从 API 中提取 500 条推文 我自己克服了几个障碍 但最后一部分需要帮助 由于某种原因 tm 包没有删除停用词 您能看一下可能是什么问题吗 表情符号会引起问题吗 绘

  • 在 R 中组合/合并列

    我可能在这个问题上遗漏了一些很容易的东西 我在任何地方都找不到正确的答案 我真的需要继续前进 所以我过度简化了我的数据 eventID lt c 2 4 Time lt c 09 32 09 43 df1 lt data frame eve

  • 按组连接/粘贴列并添加到原始数据

    我有一个名称数据框 名称 按 部门 分组 Dept Date Name 30 07 DEC 02 Raphaely 30 18 MAY 03 Khoo 40 07 JUN 02 Mavris 50 01 MAY 03 Kaufling 50

  • R 中的离散化

    有谁知道有一个包可以实现连续变量离散化的监督学习算法 dprep 包包含类似的功能 但该包已被弃用 有任何想法吗 感谢您的帮助 您仍然可以使用dprep包 但你必须从源代码安装它 我刚刚测试过 它运行良好 不过 您或许可以看看离散化 htt

  • R ggplot结合颜色图例和不同因子长度的填充

    我正在使用不完整因子设计的数据绘制图表 由于设计的原因 我的颜色手动比例和填充手动比例的长度不同 因此 我得到了两个传说 我怎样才能删除其中之一或者更好地将它们组合起来 我看过这些问题 合并单独的大小并填充 ggplot 中的图例 http

  • igraph - 将文本添加到社区图

    使用下面的代码 我可以在 igraph 提供的 空手道俱乐部 示例中生成社区图 请参见第一张图片 library igraph karate lt make graph Zachary wc lt cluster walktrap kara

  • 如何使用 ggplot2 在轴标签中使用上标

    如何在x轴上打印埃平方 我尝试如下 labs x x axis 2 y y axis 我们可以用bquote library ggplot2 ggplot mtcars aes hp mpg geom point labs x bquote

  • 从数据/系数创建 lm 对象

    有谁知道可以在给定数据集和系数的情况下创建 lm 对象的函数 我对此很感兴趣 因为我开始使用贝叶斯模型平均 BMA 并且我希望能够根据 bicreg 的结果创建 lm 对象 我想访问所有不错的通用 lm 函数 例如诊断绘图 预测 cv lm

  • 按组渐进串联列[重复]

    这个问题在这里已经有答案了 假设我有这个输入 ID date 1 date 2 str 1 1 2010 07 04 2008 01 20 A 2 2 2015 07 01 2011 08 31 C 3 3 2015 03 06 2013

  • R 矩阵到犰狳的转换非常慢

    观察 对于中等大小的矩阵 将矩阵从 R 传递到 C 的开销要慢得多arma mat类型比NumericMatrix类型 大约需要 250 倍的时间 这是一个最小的例子 include

  • 在子目录中构建共享库

    我正在尝试构建一个使用一些 C 代码的 R 包 我有一个编译为可执行文件的 C 库 可以从命令行调用 有一个与之关联的 Makefile 我正在尝试获取信息here http cran r project org doc manuals R

  • 在 R 中，将一列值与所有其他列进行比较

    我对 R 非常陌生 我有一个问题对于这里的专家来说可能非常简单 假设我有一个表 sales 其中包含 4 个客户 ID 123 126 和 4 个产品 A B C D ID A B C D 123 0 1 1 0 124 1 1 0 0 1

  • 合并结果的行数多于一个数据框

    我有两个数据框 第一个包含 9994 行 第二个包含 60431 行 我想合并两个数据框 以便合并后的数据框包含两个数据框的组合列 但只包含 9994 行 但是 合并后我得到了超过 9994 行 我怎样才能确保这种情况不会发生 df1 re

随机推荐

  • OS X 上 Matplotlib 图形中的表情符号

    我有一个 Matplpoltlib 的奇异任务 我需要在标签内显示表情符号 我使用的是 OS X 因此系统范围内对表情符号有很好的支持 然而 Matplotlib 却无法解决问题 目前 表情符号显示为空框 我使用的是Python 3 所以U

  • 按钮切换引导程序刷新后保持状态

    我有三个切换按钮 我想在刷新页面后保持切换状态 我读了很多东西 但不知道如何在我的情况下使用它们 这是按钮和 div

  • 将数组分解成小数组

    我正在向一系列人员发送电子邮件 我有数组中的收件人列表 但该列表最多可达 500 人 我的邮件服务器一次发送的收件人数量有限制 50 个收件人 因此 如果列表 gt 50 我需要将其分成不同的邮件 将一个数组分成 50 个数组的最佳方法是什

  • 在最新版本（3.0.x）Resteasy 中，我们应该使用什么 ClientResponse 和 GenericType？

    我正在开发Resteasy 我将应用程序的 Maven 依赖项从2 2 x to 3 0 x突然我发现大多数 API 都被弃用了 因此 此迁移对我的代码和测试用例产生了影响 因为它只是说在我的整个代码中已弃用 我正在以我的测试用例为例 早期

  • 使用 Adb 输入时记录按键事件

    我使用命令adb shell su getevent lt dev input event5 gt Test txt记录触摸事件 当我触摸屏幕时它会起作用 即它会写入所有操作 按下键 移动键和向上键以及坐标 但是 当我使用命令时adb sh

  • 是否有用于解析数字（包括范围）的 Perl 模块？

    有没有一个模块可以为我做这个 样本输入 2 5 7 9 3 11 14 usr bin env perl use warnings use strict use 5 012 sub aw parse my in max chomp in m

  • Tomcat 使用 Java 8 SDK，但不会编译具有 Java 8 语言功能的 JSP。如何修复它？

    我想我正在考虑 Tomcat 配置问题与我当前的问题 我正在为 Tomcat 8 5 8 开发 Java Servlet 和 JSP 应用程序 并已开始使用 Java 8 语言功能 特别是方法引用和流 在我运行 jdk1 8 0 211 的

  • Firebase 简单登录的用户名（电子邮件/密码）

    我正在使用带有电子邮件 密码身份验证的 Firebase 简单登录 我在 id username 中存储一个名为 用户名 的变量 以便每个用户都有唯一的名称 但是 用户可以编辑该位置的值并输入现有的用户名 有没有办法禁止用户将用户名更改为现

  • 如何在模板中显示html？

    我有聚合物元素 example 默认情况下模板是不允许插入html的 该示例无法运行 因为不允许插入html 也许存在这样做的方法 做到这一点的一种方法是通过 Changed观察者并设置 innerHTML节点 div div labelC

  • Rails ActiveRecord：保存嵌套模型被回滚

    使用 Rails 5 gem rails gt 5 0 0 gt 5 0 0 1 我创建了我能想到的最简单的示例来演示该问题 父级 rb class Parent lt ApplicationRecord has many children

  • 循环通过 SimpleXMLElement 来访问属性

    我正在尝试处理使用 SimpleXML 检索的数据 但遇到了很大的困难 我在这里阅读了很多关于这个主题的帖子 它们看起来都像我正在做的事情 但我的不起作用 这是我所得到的

  • 自定义通知中按钮的事件 OnClick

    我有一个带有按钮的自定义通知 要设置通知并使用按钮上的 OnClick 事件 我使用了以下代码 Notification and intent of the notification Notification notification ne

  • 如何在java中迭代json对象

    我正在尝试迭代我的 json 文件并获取所需的详细信息 这是我的 json 000 component c determinantType dt determinant d header h determinantvalue null 00

  • IE jQuery 不透明度抗锯齿问题

    我正在使用 jQuery 淡入和淡出主页上链接的 png 图像http www logandwight com 在 IE7 和 IE8 中 文本没有抗锯齿功能 并且都是四方形的 我尝试过弄乱不透明度设置 然后尝试专门为 IE 设置过滤器属性

  • 在更新页面上包括关系实体的列表视图

    我正在尝试扩展更新视图以包含编辑表单下方一些相关项目的列表视图 我有两个模型 Publishers 和 Volumes 它们具有多对多关系 我想做的是 当用户单击发布者的编辑按钮时 我希望他们转到具有标准编辑字段的页面 但在表单下方还有一个

  • Spring Batch JdbcPagingItemReader 似乎没有执行所有项目

    我正在开发一款应用程序 该应用程序从 Oracle 数据库中提取记录 然后将其导出为单个表格文件 但是 当我尝试使用 JdbcPagingItemReader 从数据库读取数据并写入文件时 我仅获得 pageSize 中指定的记录数 因此

  • R：根据条件的行值填充data.frame中的新列？

    我想根据行中的值在 data frame 中创建新列 如果 type 不等于 a 则我的 new area 列应包含来自 a 类型的 area 的数据 这是针对多个 距离 的 Example create data frame distan

  • Jruby：NameError：未初始化的常量 Neo4j

    我从 git 运行了这个例子 https github com andreasronge neo4j require rubygems require neo4j Neo4j Transaction run do node Neo4j No

  • useLocation 无法识别状态

    我开始使用react router 我发现我可以在 Link 组件中传递 props 以便某些值可以传递到另一个组件 我正在使用的按钮内发送一个名为 value 的组件 但是在接收该参数的组件中会显示一条错误消息 其中包含消息 对象可能为空

  • R - lubridate：将持续时间分割为“子持续时间”

    我有一个 R 整洁的数据集my durations其中数据框中的每个案例对应于在一段时间内采集的样本 如下所示 gt glimpse my durations Observations 300 Variables 5 sample id

热门标签