search for: profile_key

Displaying 4 results from an estimated 4 matches for "profile_key".

2012 Mar 30
3
Adding text for written comments to bottom of graphs
...y developed the code below for graphing patterns of chemotherapy administration. As someone just starting to use R in their work, I managed to figure out some parts of the code but needed help with others. setwd("N:/Regimen Coding/0906/Plots Test") getwd() TestData <- structure(list(profile_key = c(1, 1, 1, 1, 1, 2, 2, 2, 2, 2, 2, 3, 3, 3, 3, 3), line = c(1, 1, 2, 2, 2, 1, 1, 1, 1, 2, 2, 1, 1, 1, 1, 1), instance = c(1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 2), drug = structure(c(1L, 2L, 1L, 2L, 3L, 1L, 2L, 3L, 4L, 1L, 2L, 2L, 1L, 3L, 4L, 3L), .Label = c("Drug A", "D...
2012 Mar 22
4
Plotting patient drug timelines using ggplot2 (or some other means) -- Help!!!
...they are fairly close to one another. 3. Remove the numbering from the x-axis. 4. Put the text for pattern above the graph (e.g., "Begin (A), Begin (B), End (B), End (A)"), either centered or left aligned. 5. Put the patient and line information below the text for pattern (e.g., "profile_key = 1, line = 1") 6. Output a separate graph for each patient and line of treatent. Ultimately, I want to combine all the graphs into a single Word document. Or perhaps better yet, to create a pdf using LaTeX. I'm going to continue to try and fugure this out as best I can. Any help with i...
2012 May 31
3
How can I get this function to work?
...ply() from the plyr package or possibly some other approach. As yet, I don't have much experience writing anonymous functions. I imagine I'm doing something that is obviously wrong, but I don't know what it is. Thanks, Paul #### Read in test data #### testData <- structure(list(profile_key = structure(c(1L, 1L, 2L, 2L, 2L, 3L, 3L, 4L, 4L, 5L, 5L, 5L, 6L, 6L, 7L, 7L), .Label = c("001-001 ", "001-002 ", "001-003 ", "001-004 ", "001-005 ", "001-006 ", "001-007 " ), class = "factor"), encounter_date = struc...
2012 May 21
1
Complex text parsing task
...parsing task. I've provided some sample data below. There's a relatively simple version of the coding that needs to be done and a more complex version. If someone could help me out with either version, I'd greatly appreciate it. Here are my sample data. haveData <- structure(list(profile_key = structure(c(1L, 1L, 2L, 2L, 2L, 3L, 3L, 4L, 4L, 5L, 5L, 5L, 6L, 6L, 7L, 7L), .Label = c("001-001 ", "001-002 ", "001-003 ", "001-004 ", "001-005 ", "001-006 ", "001-007 " ), class = "factor"), encounter_date = struc...