I am trying to figure out if it is possible to atumatically prevent clipping of long labels when using geom_tiplab. I am trying to implement ggtree in automatic generation of basic trees, and the issue is that the labels are outside the plot area, as you can see in the tree below. I know i can fix this with xlim(), but since I want this to work with several different datasets its impossible to know the range of the x-axis in this case. Is there a way to prevent it from clipping?
Here is the code:
tree <- structure(list(edge = structure(c(13L, 13L, 14L, 15L, 16L, 17L,
18L, 19L, 19L, 18L, 17L, 16L, 15L, 20L, 21L, 21L, 20L, 14L, 22L,
22L, 13L, 1L, 14L, 15L, 16L, 17L, 18L, 19L, 2L, 3L, 4L, 5L, 6L,
20L, 21L, 7L, 8L, 9L, 22L, 10L, 11L, 12L), .Dim = c(21L, 2L)),
edge.length = c(0.0454027514, 0.0069436325, 0.0052847563,
0.007239064, 0.0142035283, 0.0298516829, 0.0002808764, 0.0001813847,
0.000251533, 0.0003989615, 0.0296560401, 0.0434632726, 0.0272796306,
0.0107160042, 0.0484294709, 0.0499746076, 0.0512355246, 0.0062195387,
0.0471805883, 0.0464889512, 0.045640451), Nnode = 10L, node.label = c("",
"53", "100", "100", "100", "100", "100", "100", "100", "53"
), tip.label = c("HFGJVBBXY_147-79PK_ACCATTAA-ACCGGTTC_assembly.fasta.ref",
"KGVETS-2019-01-2303_assembly.fasta", "HFGJVBBXY_49-23PK_CTACGAAG-CTGTCGAG_assembly.fasta",
"KGVETS-2019-01-2950_assembly.fasta", "HFGJVBBXY_221-138PK_TCCAGGTA-ACTGGAGC_assembly.fasta",
"HFGJVBBXY_144-78PK_GGTGTCCG-AGACGCTG_assembly.fasta", "HFGJVBBXY_206-117PK_TCTCCGTG-ACGATTCA_assembly.fasta",
"HFGJVBBXY_164-86PK_TTAGGTTG-CAATCGTC_assembly.fasta", "HFGJVBBXY_231-143PK_AGTTCCGT-ACGCGGCC_assembly.fasta",
"HFGJVBBXY_229-141PK_AGGTCAAG-ATAACGCG_assembly.fasta", "HFGJVBBXY_44-21PK_TCGAAGCT-CTCAGTGC_assembly.fasta",
"HFGJVBBXY_211-122PK_ACAATGCC-TAAGGACG_assembly.fasta")), class = "phylo", order = "cladewise")
ggtree(tree) +
geom_tiplab()