R Under development (unstable) (2025-05-09 r88191 ucrt) -- "Unsuffered Consequences" Copyright (C) 2025 The R Foundation for Statistical Computing Platform: x86_64-w64-mingw32/x64 R is free software and comes with ABSOLUTELY NO WARRANTY. You are welcome to redistribute it under certain conditions. Type 'license()' or 'licence()' for distribution details. R is a collaborative project with many contributors. Type 'contributors()' for more information and 'citation()' on how to cite R or R packages in publications. Type 'demo()' for some demos, 'help()' for on-line help, or 'help.start()' for an HTML browser interface to help. Type 'q()' to quit R. > library(txtplot) > > txtplot(1000000:1000004, 100000*c(1, 2, 3, 2, 1)) +--+-----------+------------+------------+-----------+--+ 300000 + * + | | | | 250000 + + | | | | 200000 + * * + | | | | 150000 + + | | | | 100000 + * * + +--+-----------+------------+------------+-----------+--+ 1000000 1000001 1000002 1000003 1000004 > txtplot(1000000:1000004, 100000*c(1, 2, 3, 2, 1), + xlab = "Test 1", ylab = "Test 2") +-+------------+-----------+-----------+-----------+--+ 300000 + * + | | | | T 250000 + + e | | s | | t 200000 + * * + | | 2 150000 + + | | | | 100000 + * * + +-+------------+-----------+-----------+-----------+--+ 1000000 1000001 1000002 1000003 1000004 Test 1 > txtplot(rep(0,10), 0:9) +--------------+--------------+---------------+--------------+ | * | 8 + * + | * | | | 6 + * + | * | | | 4 + * + | * | | | 2 + * + | * | 0 + * + +--------------+--------------+---------------+--------------+ -1 -0.5 0 0.5 1 > txtplot(0:9, rep(0,10)) 1 +--+----------+-----------+-----------+----------+--------+ | | | | | | 0.5 + + | | | | 0 + * * * * * * * * * * + | | | | -0.5 + + | | | | | | -1 +--+----------+-----------+-----------+----------+--------+ 0 2 4 6 8 > txtplot(rep(10,10), 0:9) +--------------+--------------+---------------+--------------+ | * | 8 + * + | * | | | 6 + * + | * | | | 4 + * + | * | | | 2 + * + | * | 0 + * + +--------------+--------------+---------------+--------------+ 6 8 10 12 14 > txtplot(0:9, rep(10,10)) 14 +--+-----------+-----------+-----------+-----------+--------+ | | | | | | 12 + + | | | | 10 + * * * * * * * * * * + | | | | 8 + + | | | | | | 6 +--+-----------+-----------+-----------+-----------+--------+ 0 2 4 6 8 > > txtplot(runif(100), runif(100)) 1 +-+-----------+----------+----------+----------+----------++ | * * ** * * * | | ** *** * * * * | 0.8 + * * * * * * * + | * ** * * * * * * * | | * * ** * * | 0.6 + * * * * * + | * * * * * * * * ** | 0.4 + * * * * * * * * + | ** * * * * * | | * * ** * * | 0.2 + * * * * * * * * + | * * * | | * * * ** * * * * * * | 0 +-+-----------+----------+----------+----------+----------++ 0 0.2 0.4 0.6 0.8 1 > a <- seq(0, 3, length=11) > b <- exp(-a) > txtplot(a, b, pch="o") +--+--------+--------+-------+--------+--------+--------+--+ 1 + o + | | 0.8 + + | o | | | 0.6 + + | o | | | 0.4 + o + | o | 0.2 + o + | o o | | o o o | +--+--------+--------+-------+--------+--------+--------+--+ 0 0.5 1 1.5 2 2.5 3 > txtcurve(x/(x+0.1), 0, 1, xlab = "Dose", ylab="Response") +--+---------+---------+----------+---------+---------+--+ | ************************* | 0.8 + ********** + R | ****** | e | *** | s 0.6 + ** + p | ** | o 0.4 + ** + n | ** | s | ** | e 0.2 + * + | * | 0 + * + +--+---------+---------+----------+---------+---------+--+ 0 0.2 0.4 0.6 0.8 1 Dose > > txtplot(a, b, xlim = c(1,2), ylim = c(0,1)) 1 +-----------+-----------+----------+-----------+-----------+ | | | | 0.8 + + | | | | 0.6 + + | | 0.4 + + | | | * | 0.2 + * + | * | | | 0 +-----------+-----------+----------+-----------+-----------+ 1 1.2 1.4 1.6 1.8 2 > > txtboxplot(rexp(100), xlab = "waiting time") waiting time 0 1 2 3 |--+--------------+--------------+--------------+-------------| +-------+-------------+ ----| | |---------------------------- +-------+-------------+ > > set.seed(1) > txtplot(runif(10000,0,115000),100001:110000) +--+-------+--------+--------+--------+--------+--------+ 110000 + *************************************************** + | *************************************************** | 108000 + *************************************************** + | *************************************************** | | *************************************************** | 106000 + *************************************************** + | *************************************************** | 104000 + *************************************************** + | *************************************************** | | *************************************************** | 102000 + *************************************************** + | *************************************************** | 100000 + *************************************************** + +--+-------+--------+--------+--------+--------+--------+ 0 20000 40000 60000 80000 1e+051.2e+05 > txtplot(runif(10000,-115000,0), seq(1,9,length=10000)) +---------+---------+--------+---------+--------+---------+--+ | ******************************************************** | 8 + ******************************************************** + | ******************************************************** | | ******************************************************** | 6 + ******************************************************** + | ******************************************************** | | ******************************************************** | | ******************************************************** | 4 + ******************************************************** + | ******************************************************** | | ******************************************************** | 2 + ******************************************************** + | ******************************************************** | +---------+---------+--------+---------+--------+---------+--+ -1.2e+05 -1e+05 -80000 -60000 -40000 -20000 0 > txtboxplot(runif(10000,0,115000)) 0 20000 40000 60000 80000 1e+05 1.2e+05 |--+---------+--------+---------+--------+--------+---------+-| +------------+-------------+ --------------| | |------------- +------------+-------------+ > txtboxplot(runif(10000,-115000.0)) -1.2e+05-1e+05 -80000 -60000 -40000 -20000 0 |+--------+---------+--------+---------+--------+--------+----| +------------+-------------+ --------------| | |------------- +------------+-------------+ > > z <- datasets::volcano > txtimage(z, alphabet = c(0:9, letters, LETTERS)) 56667777877766666788767899aaaa99999988787776666666555554443333221111111100000000 6677788888889888899aabbbbccdedcbaa9999998877777766665555444333322111111110000000 778888999aabbbbbbdfgjllkkllmlkjigfecbaaaaaaa999887776666555544332211111111000000 788999abccdeefhhjmprstttuvvuusqoljigfeddccdcbbaa98877665555543332211111111000000 8899a9acefhikmortvwyzBCEFFGFDAywuromkjiggffffeecba998877665543333221111111100000 8999abcdfilnqsvxzCEHJLNNPPONMJGECyvtqnljiihhgggfecbaaaaaaaa875333211111111110000 89aacefjlnpsuxBDGJLOQRRRRRQQPOKIGCyurpnmlkjjjjjihggfghhihfeca8754432111111111000 89behjmprtwyBDHJLPRTSRRQQQRQQPNKHDzwtrponmllmnmmmmnoppqpolhfdca87654322111111110 9aeimpsuvxAFIKMOSVWVSQOONMNNONMKGDByxvtsppopppqqrrssssssroljhfda9887643332222111 adhlortvyBEJMPSUWXXVQNKIGFFFHIJKIGFECAywtssstttuutssssssromkigedca99886543332221 9cgknqtwBFJMPSUXXXXUOKHFDAyzADFJKJJHGECBzxxxxxwwwvutssrqpnmkjigfecbbba8865433332 9aejosvyCGJMQTVWXYXTOJHECAyxzCEHKLLKJIGDCBCCCCAzxwvtssrpoonmkjihgeddcba987765433 8adhmptxCFIKORTVXZYUPMJGEDCCDFHKMOPPNLIFFFFGHGECzywvutsrqqponlkjhgfeedcbbaa99863 79cfhknrxCFILPSUXYYWUROLKJIIJKMNPQRRPMJIIIIJKJGECAzyxxwvuutsromlkjhgfecaaaaa9973 67adfhkntyCGJNRTVWXXXUSRQPPOPOOQQQQQOMKIIJLLLLIFDCBzyyyyyyxwvsqomkjigeba99887653 5679cfilqvzDHLORSTVVWVTSRRRQPNNNMMLLKIHGGHJKLKHFDCBzyyyyyyyyyvtrpnljhd9766554444 4567adgjmrxBGIJLNOPQRRRQQQOMKIHFFEEEECBBBBCDFFEDCBAzyyyyyyyyyxvtrplhd97544443333 56779adgimsxBDDEGIJKLMNMMLJHECAzzzzyxwwwwwwxxyzzyyyyyyyyyyyyyxvtrnjea86544443333 556778acfiloquwxyACEHHHHGGECAywvvvutssstttttttttuuuuvvwwxxxxwvutqliea87766554333 45666789bfhikmnoqsuxABBBBAzxwutsrpnmmmnnnoooopppqqqrsssttsssrrponljgda8765443333 445566789adfgijlmoqstwxyxwvtsqonlihghhhijjkkkkllllmmnnnoonnmmmlkjiheb98765544433 3455677899bceghjlmoqrsuuusrqoljhgffeeeeffggghhhhhgggggghhhhiijjihgdb877665544433 455677899abcdfgijlmopqrrqonljgfddddcccdeeeefffggfeeeddeeeeffgggggec9866555443332 445667889aacdefgijkllmnnljhfedcbaaaaa9abbccdddeeddcccccdddeeefffecb8655444333222 34556678899abcefgghhijjigfedccaa98888899aabbbcddcbbabbbbccdddeeecba7654433332221 93.9 '0' 95.5 '1' 97.2 '2' 98.8 '3' 100.4 '4' 102 '5' 103.6 '6' 105.2 '7' 106.9 '8' 108.5 '9' 110.1 'a' 111.7 'b' 113.3 'c' 115 'd' 116.6 'e' 118.2 'f' 119.8 'g' 121.4 'h' 123.1 'i' 124.7 'j' 126.3 'k' 127.9 'l' 129.5 'm' 131.2 'n' 132.8 'o' 134.4 'p' 136 'q' 137.6 'r' 139.3 's' 140.9 't' 142.5 'u' 144.1 'v' 145.7 'w' 147.4 'x' 149 'y' 150.6 'z' 152.2 'A' 153.8 'B' 155.5 'C' 157.1 'D' 158.7 'E' 160.3 'F' 161.9 'G' 163.6 'H' 165.2 'I' 166.8 'J' 168.4 'K' 170 'L' 171.7 'M' 173.3 'N' 174.9 'O' 176.5 'P' 178.1 'Q' 179.8 'R' 181.4 'S' 183 'T' 184.6 'U' 186.2 'V' 187.9 'W' 189.5 'X' 191.1 'Y' 192.7 'Z' 194.3 > txtimage(z, 20, 10, yaxis = 'd', transpose = FALSE, alphabet = ' .:-+=#') ...... .....::--++++-::... :::--=########=+-:. .::-++=##=++=##=+-.. ...::-+=====++--:... ...::-+===++-::... ...:--+++-----:. ..::-----:::... .. .... 94 ' ' 108 '.' 121 ':' 135 '-' 149 '+' 162 '=' 176 '#' 190 > z[10,10] <- +Inf > stopifnot(inherits(try(txtimage(z), TRUE), 'try-error')) > z[10,10] <- NA > z[11,11] <- NaN > txtimage(z, na.char = '?', Lanczos = 1) 01111111111111111111111111111111111111111111111110000000000000000000000000000000 11111111111111111111111112222221111111111111111111100000000000000000000000000000 11111111111111111222333333333332222211111111111111111110000000000000000000000000 11111111122222223344444455554444332222222222111111111100000000000000000000000000 11111112222333344555566666666555444333222222222211111111110000000000000000000000 11111122233344555667777888877766655443333222222222111111111110000000000000000000 11112223334455566778888888888877665444333333333322222222222111100000000000000000 11122334445566677889888888888887665544433333333333334444332222111100000000000000 11223444556677788999888887778777666555444444444444444444443322211111000000000000 12233445566778899999877776667777766666554444444444444444443332221111111000000000 12233445667788999999877666556667777766665555555555444444433332222211111110000000 11233455667788999999877665555667777777666666666555544444433333222222211111110000 11223445667788899999877666666677788887766666666655554444444433332222221111111100 11122334566778899999988777777778888887777777776666555555444443333322222111111110 11122233456677899999998888888888888887777777777666655555555554433332221111111100 01112233455677888999999888888887777777766777777666655555555555444333221111000000 00111223345667777888888888877766666666666666666666555555555555544332211000000000 01111122334556666777777777776655555555555555555555555555555555544332111000000000 00111112233444555566677766665555554444444444444444455555555555444322111110000000 00011111122333344455566665555444443333333333344444444444444444433332211110000000 00000111???222333344455555544433332222233333333333333333333333333322111110000000 00001111??1222233334444444443332222222222222222222222222222333322221111100000000 00011111111122223333444444333222222212222222222222222222222222222211111000000000 00011111111122222333333333222221111111111222222222221222222222222211100000000000 00001111111112222222333322222111111111111111122221111111222222222111100000000000 94 '0' 104 '1' 113.9 '2' 123.9 '3' 133.8 '4' 143.8 '5' 153.7 '6' 163.7 '7' 173.7 '8' 183.6 '9' 193.6 > txtimage(matrix(10, 200, 200)) 44444444444444444444444444444444444444444444444444444444444444444444444444444444 44444444444444444444444444444444444444444444444444444444444444444444444444444444 44444444444444444444444444444444444444444444444444444444444444444444444444444444 44444444444444444444444444444444444444444444444444444444444444444444444444444444 44444444444444444444444444444444444444444444444444444444444444444444444444444444 44444444444444444444444444444444444444444444444444444444444444444444444444444444 44444444444444444444444444444444444444444444444444444444444444444444444444444444 44444444444444444444444444444444444444444444444444444444444444444444444444444444 44444444444444444444444444444444444444444444444444444444444444444444444444444444 44444444444444444444444444444444444444444444444444444444444444444444444444444444 44444444444444444444444444444444444444444444444444444444444444444444444444444444 44444444444444444444444444444444444444444444444444444444444444444444444444444444 44444444444444444444444444444444444444444444444444444444444444444444444444444444 44444444444444444444444444444444444444444444444444444444444444444444444444444444 44444444444444444444444444444444444444444444444444444444444444444444444444444444 44444444444444444444444444444444444444444444444444444444444444444444444444444444 44444444444444444444444444444444444444444444444444444444444444444444444444444444 44444444444444444444444444444444444444444444444444444444444444444444444444444444 44444444444444444444444444444444444444444444444444444444444444444444444444444444 44444444444444444444444444444444444444444444444444444444444444444444444444444444 44444444444444444444444444444444444444444444444444444444444444444444444444444444 44444444444444444444444444444444444444444444444444444444444444444444444444444444 44444444444444444444444444444444444444444444444444444444444444444444444444444444 44444444444444444444444444444444444444444444444444444444444444444444444444444444 44444444444444444444444444444444444444444444444444444444444444444444444444444444 10 '0' 9.99999999999996 '1' 9.99999999999997 '2' 9.99999999999998 '3' 9.99999999999999 '4' 10 '5' 10 '6' 10 '7' 10 '8' 10 '9' 10.0000000000001 > > proc.time() user system elapsed 0.93 0.12 1.06