How to split the tree and how to color them

Hi @jokergoo

How can I create two spirals with different start and end angles in the same plot? I was trying to use twice the spiral_initialize function and the newpage parameter sets to False, but it is not working correctly.

Best

To reflect fraction of a month in a year

add clockwise and reverse_clockwise

Hi,

I was following the global temperature change example in your vignette but I produced a plot that has the years label slightly off.

library(spiralize)
library(ComplexHeatmap)
library(lubridate)
eg <- data.frame(date = ymd(20000101) + days(0:3652), num = rnorm(3653, 100, 20))

spiral_initialize_by_time(
  xlim = range(eg$date),
  unit_on_axis = "days",
  period = "month",
  period_per_loop = 12)

spiral_track()
lt = spiral_horizon(eg$date, eg$num, use_bar = TRUE)
spiral_text("2000-01-01", 0.5, "2000", gp = gpar(fontsize = 8))
spiral_text("2001-01-01", 0.5, "2001", gp = gpar(fontsize = 8))
spiral_text("2002-01-01", 0.5, "2002", gp = gpar(fontsize = 8))
spiral_text("2003-01-01", 0.5, "2003", gp = gpar(fontsize = 8))
spiral_text("2004-01-01", 0.5, "2004", gp = gpar(fontsize = 8))
spiral_text("2005-01-01", 0.5, "2005", gp = gpar(fontsize = 8))
spiral_text("2006-01-01", 0.5, "2006", gp = gpar(fontsize = 8))
spiral_text("2007-01-01", 0.5, "2007", gp = gpar(fontsize = 8))
spiral_text("2008-01-01", 0.5, "2008", gp = gpar(fontsize = 8))
spiral_text("2009-01-01", 0.5, "2009", gp = gpar(fontsize = 8))
spiral_text("2010-01-01", 0.5, "2010", gp = gpar(fontsize = 8))
lgd = horizon_legend(lt, title = "Random")
draw(lgd, x = unit(1, "npc") + unit(2, "mm"), just = "left")

I tried to set normalize_year to TRUE but then I get an error: Error in as.POSIXlt.numeric(pos) : 'origin' must be supplied .

library(spiralize)
library(ComplexHeatmap)
library(lubridate)
eg <- data.frame(date = ymd(20000101) + days(0:3652), num = rnorm(3653, 100, 20))

spiral_initialize_by_time(
  xlim = range(eg$date),
  unit_on_axis = "days",
  period = "month",
  period_per_loop = 12,
  normalize_year = TRUE)

spiral_track()
lt = spiral_horizon(eg$date, eg$num, use_bar = TRUE)
Error in as.POSIXlt.numeric(pos) : 'origin' must be supplied

May you let me know how I can align the years?

Many thanks,
Dave

Hi @jokergoo

I would be interested in using your library for plotting some multivariate longitudinal data. I was wondering the following:

1- Is it possible to create a spiral not by using the Archimedean formula, but the method of two points centers?
2- If a create different spirals, is possible to fill the space between spirals by doing a color interpolation method?

Best regards and thanks

Hello!

I think I'm misunderstanding something. I have a table with 2 columns: a date column, and a count of events by day column. e.g.

Using the following:

`
spiral_initialize_by_time(xlim = range(df$date), padding = unit(2, "cm"), start = 90, flip = "horizontal")

spiral_track(height = 0.8, background=FALSE)

spiral_horizon(df$date, df$count, use_bars = TRUE)
`

I would expect a spiral with coloured bars representing counts on each day. Where my count is highest, the bars return the most vibrant colour.

However, I occasionally have bars where the bottom half is a dark colour, and the top half is a light colour. Considering the shape of my data I don't understand what this extra colour is representing. Please could you clarify?

Many thanks,

check axis labels when spiral is rotated

it should return the value corresponding to data, e.g. genomic positions

I am using spiralize package to visualize phylogenetic tree.
By reading the manual, I found the color_branches( ) function can color branches according to h or k parameters.

Here I want to know is there any function can color branches according to species name, which I think is very important information in phylogenetic analyses.

Thanks in advance.

52 x 7

https://twitter.com/jokergoo_gu/status/1479881644798619658

especially when year or month is period and when period_per_loop is not set to 1.