r - Spiral Wrapped Text -


i saw in latex people wrapping text spiral seen below. replicate in r.

enter image description here

i though plotrix's arctext given enough text seems make circle seen in plot (left) below. can make aspiral line seen in plot (right) can not merge text , spiral.

enter image description here

code

txt <- paste(rep("bendy spaghetti", 10), collapse=" ") txt2 <- paste(rep("bendy spaghetti", 20), collapse=" ")  par(mfrow=c(1, 2), mar=rep(.3, 4)+c(0, 0, 1, 0))  library(plotrix) plot.new() plot.window(xlim = c(1, 5), ylim = c(2, 4), asp = 1) arctext(txt, center = c(3, 3), radius = 1.7,    start = 4 * pi / 3, cex = .75, clockwise = false) title(main = "arc text (plotrix)")  theta <- seq(0, 30 * 2 * pi, = 2 * pi/72) x <- cos(theta) y <- sin(theta) r <- theta/max(theta) plot.new() plot.window(xlim = c(-1, 1), ylim = c(-1, 1), asp = 1) lines(x * r, y * r) title(main = "a spiral")

ideally, solution work on n length text, txt , txt2 above both make wrapping spiral not same size (txt2 double length of txt).

approaches grid/ggplot2 , base grapgics welcomed.

not perfect 

txt <- paste(rep("bendy spaghetti", 10), collapse=" ") txt2 <- paste(rep("bendy spaghetti", 20), collapse=" ") tt <- strsplit(txt, '')[[1]]  xx <- 5 par(mfrow = c(1,2), mar = c(0,0,0,0)) plot(-xx:xx, -xx:xx, type = 'n', axes = false, ann = false)  ## option 1 r <- rev(seq(0, xx, length.out = length(tt))) x <- sqrt(r) * cos(2 * pi * r) y <- sqrt(r) * sin(2 * pi * r) text(x, y, tt)  ## option 2 plot(-xx:xx, -xx:xx, type = 'n', axes = false, ann = false) srt <- atan2(y, x) * 180 / pi (ii in seq_along(tt))   text(x[ii], y[ii], tt[ii], srt = srt[ii] - 90)

enter image description here

obviously, distance between letters shrinks closer center, can improved.

also don't see how can around calling text each new value of srt using approach since srt isn't formal argument meaning couldn't vectorize(text.default, vectorize.args = 'srt'), isn't slow example data.

additionally, make data frame , plug ggplot.

dd <- data.frame(x, y, srt = srt - 90, tt) library('ggplot2') ggplot(dd, aes(x, y)) + geom_text(label = dd$tt, size = 5) ggplot(dd, aes(x, y)) + geom_text(label = dd$tt, size = 5, angle = dd$srt)

Comments

Post a Comment

Popular posts from this blog

get url and add instance to a model with prefilled foreign key :django admin -

Image
i have page in each contest shown in row. each row contains contest id , link other model names have foreign key contest. news model: class news(models.model): title = models.charfield(max_length=50, null=true) description = models.textfield() time = models.timefield( default= datetime.datetime.now().time()) contest = models.foreignkey(contest) i want use admin adding , changing these models. want when user clicks on 'news' has foreign key contest id=1, shows list of news value foreign key. use {% instance in instances %} <tr class="{% cycle 'row1' 'row2' %}"> <td>{{ instance.title }}</td> <td>{{ instance.starttime }}</td> <td>{{ instance.timespan }}</td> <td>{{ instance.date }}</td> <td><a href="/adm...
Read more

android - Keyboard hides my half of edit-text and button below it even in scroll view -

i having trouble keyboard covers edit-text , half of button in scroll view. here's layout , please tell me how should resolve problem. many questions on topic none of them s working me. <?xml version="1.0" encoding="utf-8"?> <linearlayout xmlns:android="http://schemas.android.com/apk/res/android" android:layout_width="match_parent" android:background="@drawable/bg" android:layout_height="match_parent"> <scrollview android:layout_width="match_parent" android:fillviewport="true" android:layout_height="match_parent"> <relativelayout android:layout_width="match_parent" android:layout_height="wrap_content" android:orientation="vertical"> <linearlayout android:layout_width="match_parent" android:layout_height="w...
Read more

css - Make div keyboard-scrollable in jQuery Mobile? -

from can tell, although jquery-mobile-powered pages can contain divs overflow set scroll or auto, , these divs can scrolled one-screen bar or mouse wheel, cannot scrolled using arrow keys, page-up/page-down, or home/end. instead, official "page" div (with data-role="page") absorbs input. perhaps other divs can't acquire focus, i'm not sure. is there way around this? edit: jsfiddle of simple example: https://jsfiddle.net/qogz0shx/ <script src="https://ajax.googleapis.com/ajax/libs/jquery/2.1.4/jquery.min.js"></script> <script src="https://ajax.googleapis.com/ajax/libs/jquerymobile/1.4.5/jquery.mobile.min.js"> </script> <link rel="stylesheet" href="https://code.jquery.com/mobile/1.4.5/jquery.mobile-1.4.5.css"/> <style> #outer { overflow:scroll; height: 50vh; width: 50vw; } #inner { height: 500vh; width: 500vw; } ...
Read more